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FOREWORD 

This docuaent is Voluae II of a three volume report de cilbii^ the 
Reacting and Ihilti-Phase (RAHP2) computer code developed by the Computa- 
tional Mechanics Section of Lockheed's Huntsville Research & Engineering 
Center. Volume II provides a detailed description of all the elements used 
in the RANP2 code. Volume I deals with the theory and numerical solution 
for the computer code, and Volume III is the program users and applications 
manual. 

Documentation of the computer code was prepared in partial fulfillment 
of Contract HAS9-162S6 with the NASA-Lyndon B. Johnson Space Center, 

Houston, Texas. The contracting officer's technical representative for this 
study was Hr. Barney B. Roberts (ET41). 

The author acknowledges the efforts of Dr. Terry F. Green%rood of 
NASA-Harsi:all Space Flight Center and Hr. S.J. Robertson of Lockheed- 
Huntsville, both of whom contributed to the development of the RittfP2 code. 

Companion documents to this report include a theory and numerical solu- 
tion document for RAHP2 computer code; a user's and applications manual for 
RAMP2, a report which describes the modifications made to the NASA-Lewis 
TRAN72 computer code, the original documentation of the NASA-Lewis TRAN 72 
computer code, and the original documentation of the Boundary Layer Integral 
Matrix (BLIMPJ) computer code. These documents are, respectively: 


a "High Altitude Supersonic Flow of Chemically Reacting Gas-Particle 
Mixtures - Vjlume I - A Theoretical Analysis and Development of the 
Numerical Solution," LHSC-HREC TR D867400-I. 
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• "High Altitude Supersonic Plow of GheBically Reacting Gas-Particle 
Mixtures - Voluae III - RAMP2 - Coaputer Code Users and Applications 
Manual," IHSC-HREC TR 0867400-III. 

s "User's Guide for TRAN72 Coaqmter Code Modified for Use with RAMP 
and VOFMOC Flowfield Codes," UfSC-ffiEC 1M D390409. 

• Svehla, R.A. , and B.J. McBride, "FORTRAB IV C. aputer Prograa for 
Calculation of Thetaodynaaics and Transport Properties of Coaplex 
Chealcal Systeas," NASA TN D-70S6, January 1976. 

• Evans, R.M. , "Boundary Layer Integral Matrix Procedure BLDff-J 
User's Manual," Aerothera UM-75-64, July 1975. 
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1. INTBODIKmOH AND SOIOIARY 

This docment, Voluoe II, provides detailed description of the flow- 
field eleoMOt of the high altitude version of the Reacting and Multi-Phase 
(RAMP2) computer program. The goal in developing EAMP2 was to develop com- 
puter code which %n>uld provide an engineering tool for calculating high 
altitude (orbital) rocket exhaust plumes. Additionally, the cmputer model 
includes the major controlling phenomena (boundary layer, chemistry, two- 
phase flow, and free molecular flow) which influence the structure of the 
plume. 


The contents of this volume are not intended to supply the reader with 
a complete description of the RAMP2. Instead it is intended to give, along 
with the contents of Volumes I and III (Refs. 1 and 2, respectively), the 
necessary information about the internal functions of RAMP2 to enable the 
user to understand and modify the basic coding of this computer program. 

RAHP2 insists of three basic computational modules: the TRAN72 program 
for generating equilibriun thermodynamic and transport data, the BAMP2F code 
for solving the flowfleld and the BLIMPJ code used to calculate the nozzle 
boundary layer. Due to computer storage limitations the three programs must 
be executed separately; however, conmunication between the programs has been 
provided via temporary files so that except for separate executions they can 
be considered as one program. 

Detailed descriptions of the TRAN72 and BLIMPJ (Refs. 3 and 4, 
respectively) programs have not been included in this report. Section 3 of 
this report does contain a brief description of the subroutines of each of 
the codes. Volume III discusses the use of TRAN72 and BLIMPJ along with 
RAMP2. Complete descriptions of the two codes are given in Refs. 3 and 4. 
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Section 2 of this volume describes the overall flow of RAHP2 (including 
TRAN72 and BLIMPJ) along with the data communicated between the various 
modules within the RAMP2F flowfield code as well as between RAHP2» TRAN72, 
and BLIMPJ. The overlay structure (RAMP2F, TRAN72, BLIMPJ) and labeled 
common blocks used by each subprogram of the RAMP2F flowfield program is 
presented in Section 3. The files used by RAMP2 are described in Section 
4. A complete subroutine by subroutine description of all the codes is 
included in Section 5. Appendix A lists the overlay control cards for the 
Univac 1108 and COG 7600. Appendix B contains discussion on how to convert 
Che program to the CDC 7600. 
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2. PROGSRM FLOW CHARTS 

This section gives the user a general description of the overall flow 
of the computer codes which make up the RAMP2 code. Additionally, more 
detail on the flow fo the RAMP2F code is also Included. Flow charts for the 
TRAN72 and BLTMPJ codes can be found in Refs. 3 and 4. 

Figure 2-1 presents the basic flow of the three programs which make up 
the RAMP2 code. First, the TRAN72 program is executed to provide the 
thermodynamic data for the nozzle and plime solutions. Next, the RAHP2F 
code is executed to provide the nozzle solution and input data for the boun- 
dary layer program (BLOfPJ). Then BLIMPJ is run to generate the nozzle wall 
boundary layer and exit plane boundary layer properties. Finally, the 
RAMP2F code is re-executed to merge the inviscid nozzle and boundary layer 
results and calculate the plume. 

Figure 2-2 presents the c<Hnmunication of the various auxiliary programs 
with the RAHP2 programs along with c<»imunlcation between the three programs 
of the RAMP2 code. 

Figure 2-3 presents a flow chart of the main routines in functional 
groupings for the RAHP2F program. To attempt to completely flow chart the 
entire program would probably transmit less information than that given in 
Fig. 2-3 since it would be extremely complex and bulky. 


2-1 


LOCKHEED-HUNTSVILLE RESEARCH & ENGINEERING CENTER 



IJ<SC-HREC TR D867400-1I 


TRAN72 


RAMP2F 


BLIMPJ 


RAMP2F 


Fig. 2- 


Generate Thernodynamic Properties 
of Combustion Cases 


Solve Nozzle Flow Field 


Solve Nozzle Boundary Layer to Exit 


Solve Plume Including Nozzle Wall 
Boundary Layer Effects 


1 Overall Flow of RAMP2 Programs 


2-2 


LOCKHEED-HUNTSVILLE RESEARCH & ENGINEERING CENTER 







LMSC-HREC TR D867400-II 



Fig. 2-2 Sequencing and CongnunlcaClon o£ Auxiliary Programs with the RAMP 
Program 
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Fig. 2-3 Basic RAMP2F Flow Chart Broken Down into Functional Groupings 
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3. OVERLAY AND COMMON BLOCK DESCRIPTION 

Section 3.1 describes the overlay structure of the RAMP2 codes while 
Section 3.2 lists the references and cross references of every subroutine 
and common block In the RAHP2 flowfleld code. 

3.1 PROGRAM OVERLAY STRUCTURE 


Three separate programs (TRAN72, RAMF2F, and BLIMPJ) make up the RAMP2 
program. These programs are presently operational on the Unlvac 1110 and 
CDC 7600 computer systems. The TRAN72 program does not require an overlay 
to stay within the core requirements of the Unlvac 1110 or CDC 7600 compu- 
ters although It Is possible to overlay the program as described In Ref. 3. 
The RAMP2F flowfleld and BLIMPJ codes do require overlaying in order to fit 
on the Unlvac 1110 and CDC 7600 systems. 


The RAMP2F flowfleld program overlay structure Is shown In Fig. 3-1 and 
detailed In Table 3-1. The BLIMPJ program overlay structure is given In 
Fig. 3-2 and Table 3-2. The list of subroutines for the BLIMPJ code given 
in Table 3-2 gives the subroutine name followed by the element name in 
parenthesis. The Unlvac 1110 overlay loader Instructions and CDC 7600 
segmentation loader instructions are given in Appendix A. 


The amount of storage requirements for each machine depends on the size 
of the words and efficiency of the compiler for each machine. Typical num- 
bers are given below in decimal words (octal words). 


Unlvac 1110 CDC 7600 

FTN4 Version 


TRAN72 Program Size 

RAHP2F Program Size (Overlayed) 

BLIM^’J Program Size (Overlayed) 


55964(156725) 

74230(222726) 

62280(173233) 


(124300) 

(133300) 

(136300) 
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Fig. 3-1 RAMP Overlay Structure 
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Table 3-1 RAMP OVERLAY 


MAIN 

DRIVER, THERMO, AND OTHER COMMON USE ROUTINES 


ALGINT 

IBOUKD 

REPEAT 

TUESMV 

BLKDAT 

INfPFP 

RGVOFM 

THERMl 

BOUND 

ITSUB 

RHOPEM 

TKEY 

DRAGCP 

KIKOFF 

RITE 

TOFEM 

DRAGMR 

LACKING 

SITER 

TOFH 

DRIVER 

MAIN 

SPCTX 

TOFV 

EMOFV 

PAGE 

TAB 

UDFEM 

ERRORS 

PFP 

TEKTAB 

UOFV 

FABLE 

POFEM 

THERMO 

VOF^ 


ESI 


B1 

INPUT AND SINGLE-PHASE STARTLINE 


AOASTR 

INITP 

PAGVOF 

SPACET 

AXIS 

LIPIN 

PARTIN 

STARTV 

GASRD 

LOGIC 

PARTPH 

STLINE 

GASTAP 

MASCON 

PHI 

THERMl 

lUfPHI 

MASS 

PUIOUT 

HG 

iroCTAB 

MAXT 

PLUMIN 

HOFA 

IDMXSI 

OFSET 

POINT 

WTT 

IDTAPE 

IMPUT 

OUTPUT 

SETHTG 

HXANDR 




B2 



IWO-PHASE TRANSONIC AND SPF STARTLINE 


ARASSL 

HALL 

PARTIL 

SPECIE 

COEFS 

IDMPOP 

POP 

TRACE 

DLTA 

ONED 

PROP 

TRANS 

FIXIL 

ORTHLS 

PUNEX 

HDGI 
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Table 3-1 (Continued) 


83 

BOUNDARY LAYER INPUT DATA GENERATION 
BLMPIN IDSPEC SPECIE NALPRP 

inrroB specc 


B4 

particle TRAJECTORY TRACING AND MERGING ROUTINES 
FOR VISCOUS EXIT STARTLINE 


BLEXIT 

INTERP 

PREAD 

TAPMOV 

GAS 

PARLOR 

PRO 

TRACER 

IDMPDT 

PBLTRC 

READF 

HRITP 

imPRO 

INRSCP 

PDT 

START 

HTFLOP 




B5 




FLOWFIELD SOLUTION 


CHECK 

QfOFP 


PHASEl 

SOKIliT 

CHEM 

FNEHTN 


PRATPT 

VEMAG 

COEFEQ 

GAPPBl 


RGMOFP 

VMOIffiL 

C0EFF3 

INRSCT 


ROTERM 

VMODl 

DOTPRD 

NEHENT 


SLOP 





Cl 




STREAMLINE 

NORMAL 

POINT SOLUTION 


AVERAG 

PHYSOL 


SOKSOL 

STRNOR 

CARCTR 

SLPLIN 


STGMOD 




C2 




OUTPUT AND FREE MOLECULAR 


DELTAF 

ITARM 

OUTBIN 

VM0D2 

FREEMC 

LIMITS 

POFH 

WEAK 

ENTROP 

NORSCK 

TOFENH 

HTFLOF 

ESHOCK 

OUT 

TURN 

INTT 

SLSKIP 

PRFRBD 
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Table 3-1 (Concluded) 

C3 

MASS FLOM, TRUST. BBEAKDOIM CRITERIA. AMD PROBLEM LIMITS 

CBBEAK ITERM MASSCK ThRUST 

IRTEGR 


C4 

SMOCK CAPTURIMG POIMT SOLOTIOM AMD HISCELLAMEODS 

BACHRD CODEF FOBWRD CODEE 

BOOHDA OODEU MCCBMK DECODE 


C5 

PRAMDTL-MEYER 


DELTFF 

IRAD 

PAFH 

PRAMDT 

EMTRPP 

MESH 

PARIMT 

SLIMT 

ESHOCC 

MOCSOL 

PARSTR 

THETPM 

EXPOOR 

NORMCK 

PLOAD 

UEKK 

HYPER 

OVEREX 




D1 

PARTICLE ARRAY IMITIALIZATIOM 

OUMSTS 
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Table 3-2 

BLUffJ OVERLAY 




ONE 



BLINP(B2A) 
CKMO (B140) 
CKCT (B23A) 
DONOOM (BOIA) 
EQUIL (B20A) 
ERF (B19B) 

EBP (B30A) 
ETHCF (B30B) 
HHCMO (B14C) 
KINET (B28A) 
LIAD B30C) 
MATER (B22A) 

TWO 

NATSl (B18A) 
MATS2 (B18B) 
PROPS (B2SA) 
RERAY (B15B) 
SECOND (B30G) 
SaOMO (B14E) 

SLOPL (B16B) 
STATE (B14A) 
TAYLOR (B26A) 
THERM (B21A) 
TRAf^CR (B19B) 
TRFBL (B19A) 


DATE (B30E) 
FIRSTG (B29A) 
HISTXl (BIQA) 


LllMAT (B27A) 
SETUP (B03A) 
TOD (B3W) 




THKE 



REFOON (B07A) 


SLWQ (B16A) 



FOUR 


G80H (B09B) RECASE (P09A) 

MISCIN (B07B) 


FIVE 

INPUT (B24A) 


SIX 

STATEN (B14B) 


ABHAX (B17A) 
lOOEFF (B08B) 
IMONE (B12B) 
lONLY (B13B) 


SEVEN 

ITEBAT (B04A) 
LINGER (B06A) 
NNNCER (B05B) 


OGLE (B36A) 
RNLCER (BOSC) 
TLEFT (B30D) 
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Table 3-2 (Concluded) 


F1LQ3 (BSOA) 
FILQS (BSOB) 
FUnSQ (BSOC) 


EIGHT 

FISLEQ (B50D) 
FUNES (BSOE) 
OUTBL (BllA) 


POUTS (BSOF) 
REFIT (BSOF) 
TRIHT (B5(») 


NINE 

ROGOUT (BIU) 


TEN 

EOGHSP (EDGHSP) REAlff (BEADP) 

EOGHIP (EDGraP) TAD (TAD) 

IDKCAD (IDMTAD) TAPHOV (TAPMOV) 
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3.2 SUBROUTINE AND COMMON BLOOC REFERENCES 

This subsection provides a list of all the references and 
cross-references for the subroutines and common blocks in the RAMP2F code. 
The same information for the BLIMPJ and TRAN72 codes is not included in this 
document, however, the user can refer to Refs. 3 and 4 to find similar 
information. Table 3-3 provides a list of all the subroutines in the RAMP2F 
program, along with each routine's entry point(s) and the subroutines called 
by each routine. Table 3-4 is a cross reference of Table 3-3. Table 3-4 
provides a list of all entry points, the elasent (subtoutlne) that it is 
part of along with a list of all elements (subroutines) which reference the 
entry point . 

Table 3-5 lists each common block in the RAMP2F program along with its 
size (decimal) and routines that refer to each common block. This table 
can be used to locate all references to a particular common block in the 
event of a program modification which requires a length change to the common 
block. 
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Table 3-3 RAMP2P ENTRY POINTS AND EXTERNAL REFERENCES 


Element/ 

Entry 


Version 

Points 

External References 

ALGINT 

*ALGINT 


AOASTR 

*AOASTR 

ERRORS, ITSUB, RGFPVM, THERMO, WOFA 

ARASSL 

* ARASSL 


SVERAG 

*AVERAG 

EMOFV, POFEM, RHOFEM, STQIOD, WOFA 

AXIS 

*AXIS 

IDMPUI, PHI 

BACURD 

*BACWRD 

CODEE, CODEF 

BLEXIT 

*BLEXIT 

IDMPOB, IWIPFP, INRSCP, ITSUB, PDT, 
PFP, POFEM, PREAD, RGVOFM, SITER, 
TOFEM, UOFEM 

BLKDAT 



BLHPIN 

*BLMPIN 

IDMTDG, IDSPEC, SPECIE, TAB, HALPRP 

BOUND 

*BOUND 

LAGRNG 

BOUNDA 

*BOUNDA 

BOUND, INRSCT 

CARCTR 

*CARCTR 


CBREAK 

*CBREAK 

THERMO 

CHECK 

♦CHECK 

CAPPBI, IMIPFP, PFP, SPCTX, VMODEL 

CHEH 

*CHEM 

SLDP, TKEY 

CODEE 

♦CODEE 

PFP 

CODEF 

♦CODEF 

PFP 

CODEH 

♦CODEH 

PFP, PPATPT 

COEFEQ 

♦COEFEQ 
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Table 3-3 (Continued) 


Element/ 

Entry 


Version 

Points 

External References 

C0EFF3 

*C0EFF3 

IDMPFP, PFP 

COEFS 

*C0EFS 


DECODE 

^DECODE 

EMOFV, IDMPFP, THERMO TOFQl, UOFQl 

DELTAF 

*DELTAF 


DLTA 

*DLTA 

PROP 

DOTPRD 

*D0TPRD 


DRAGCP 

*DRAGCP 


DRACMR 

*DRAQ1R 

ALGINT 

DRIVER 

♦DRIVER 

BLEXIT, BLMPIN, INITP, PBLTRC, 
PHASEl, PLUMIN, PUNEX, SPACET, TRANS 

DUMSYS 

♦DUMSYS 


EMOFP 

♦EMOFP 


EMDFV 

♦EMOFV 

TOFV 

ENTROP 

♦ENTROP 


ENTRPP 

♦ENTRPPP 


ERRORS 

♦ERRORS 

REPEAT 

ESHOCC 

♦ESHOCC 

DELTFF, QIOFV, ENTRPP, POFEM, RHOFEM 
THERMO, UEKK 

ESHOCK 

♦ESHOCK 

DELTAF, EMOFV, ENTROP, POFEM, RHOFEM 
THERMO, WEAK 

EXPCOR 

♦EXPCOR 

ALGINT, CHECK, INRSCT, MOCSOL, 
PPATPT, SPCTX, VMODEL 

FABLE 

♦FABLE 

EMOFV, POFEM, TAB, TOFV, XSI 

FIXIL 

♦FIXIL 

PROP 
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Table 3-3 (Continued) 


Element/ 

Entry 


Version 

Points 

External References 

FNEUTN 

*FNEWTN 


FORHRD 

*FORWRD 

CODE, CODF 

FREEHC 

*FREEHC 

BOUND, IDMPFP, INRSCT, ITARM, OUT, 
OUTBIN, PFP, WTFLOF 

GAPPBI 

*GAPPBI 

ALGINT, DRAGCP, DRAGMR, EMOFV, PFP, 
POFEM, STRNOR, TEMTAB, THERMO, TOFV, 
UOFV 

GAS 

*GAS 

PRO 

GASRD 

*GASRD 

GASTAP, IDMXSI, IDTAPE, TAB, XSI 

GASTAP 

*GASTAP 

ERRORS, IDMIAB, INPUT 

HALL 

*HALL 


HYPER 

*HYPER 

EMOFV, ERRORS, FNEMTN, ITSUB, OVEREX 
PAFH, POFEM, THERMO, THETPM, TOFH 

IBOUND 

*IBOUND 


IDMPDT 

*1DMPDT 


IDMPFP 

♦IDMPFP 


IDHPHI 

♦IDMPHI 


IDMPOP 

♦IDMPOP 


IDMPRO 

♦IDMPRO 


IDHTAB 

♦IDMIAB 


IDHTOB 

♦IDMTOB 


IDMXSI 

♦IDMXSI 


IDSPEC 

♦IDSPEC 


IDTAPE 

♦IDTAPE 

TAB 
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Table 3-3 (Continued) 


Element/ 

Entry 


Version 

Points 

External References 

INPUT 

*IMPUT 

SPCTR 

INITP 

*INITP 


INRSCP 

*INRSCP 

ERRORS 

INRSCT 

*INRSCT 

ERRORS 

INTEGR 

*INTEGR 

PFP, VEMAG 

INTERP 

*1NTERP 

PFP 

INTT 

*INTT 

IDMPFP, OUT, PFP, PPATPT 

IRAD 

*IRAD 

SPCTR 

ITARH 

*ITARM 


ITERM 

*ITERM 


ITSDB 

*ITSUB 


KIKOFF 

*KIKOFF 


LAGRNG 

*LAGRNG 


LIMITS 

♦LIMITS 

BOUND 

LIPIN 

♦LIPIN 

R6V0FM, THERMO, UOFV 

LOGIC 

♦LOGIC 

ARIS, BOUND, IBOUND, IDMPUI, OUTPUT, 
PHI, POINT, SITER, THERMT 

MAIN 

♦MAIN 

DRIVER, DUMSYS 

MASCON 

♦MASCON 

EMOFV, ERRORS, ITSUB, RGVOFM, RHOFEM 

MASS 

♦MASS 

PHI, THERMT 

MASSCK 

♦MASSCK 

IDMPFP, INTEOR, PFP 

MART 

♦MART 
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Table 3-3 (Continued) 


Element/ 

Entry 


Version 

Points 

External References 

MCCRMK 

*MCCRMK 

BACWRD, CODEE, CODEF, CODEH, DECODE, 
FORMED, IDhPFP, PFP 

MESH 

*HESU 

EHOFV, THERMO 

MOCSOL 

*MOCSOL 

ALGINT, BOUND, COEFEQ, C0EFF3, 
ERRORS, FNEWTN, IIBIPFP, INRSCT, 
NEWENT, PFP, PPATPT, RGMOFP, ROTERM, 
SPECTX, TUERMl, VMODEL, VOFEM 

NEUENT 

*NEWENT 

CHEM 

MORMCK 

*NORMCK 

INRSCT 

NORSCK 

*NORSCK 

ITSUB, TOFENH 

OFSET 

*0FSET 


ONED 

*ONEO 


ORTHLS 

*0RTHLS 


OUT 

*OUT 

ESHOCK, NORSCK, PAGE, PFP, POFEM, 
PPATPT, SPCTX, THERMO, VEMAG, VMODl, 
VM0D2 

OUTBIN 

♦OUTBIN 

EMOFV, PFP, SPCTX, TEMTAB, THERMO, 
VMODl 

OUTPUT 

♦OUTPUT 

MASS, PAGVOF, PHI, THERMT 

OVEREX 

♦OVEREX 

EMOFV, ERRORS, ESHOCC, IDMPFP, ITSUB 
PFP, POFEM, THERMO, UOFV 

PAFH 

♦PAHF 

TOFH 

PAGE 

♦PAGE 


PAGVOF 

♦PAGVOF 


PARINT 

♦PARINT 

CHECK, IDMPFP, INRSCT, PFP 
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Element/ 

Version 

PARLOR 

PARSTR 

PARTIL 

PARTIN 

PARTPH 

PBLTRC 

PUT 

PF? 

PHASEl 


PHI 

PHYSOL 

PLMOUT 

PLOAD 


Table 3-3 (Continued) 


Entry 

Points 


External References 

♦PARLOR 

INTERP, 

READF, TAPMOV 

♦PARSTR 

PFP 


♦PARTIL 

COEFS, 

ORTHLS, 

THERMO, 

DLTA, EMOFV, FIXIL, ONED, 
PAGE, PROP, SITER, TAB, 
TOFEM, TOFV, TRACE, WDGI 

♦PARTIN 

IDMPFP, 

THERMO, 

PFP, POFEM, RGVOFM, SPCTX, 
TOFEM, UOFEM 

♦PARTPH 

PAGE 


♦PBLTRC 

IDMPDT, 

START, 

IDMPRO, INRSCP, PARLOR, PRO, 
TAPMOV, TRACEP, WRITP, WRFLOP 


*PDT 


*PFP 

*PHASE1 ALGINT, AVERAB, BOUND, BOUNDA, 

CVREAK, CHECK, EMOFV, ERRORS, EXPCOR, 
FREEHC, HYPER, IBOUND, IDMPFP, 

INRSCT, INTT, IRAD, ITERM, LIMITS, 
MASSCK, MCCRMK, MESH, NORMCK, OUT, 
OUTBIN, PARINT, PARSTR, PFP, PLOAD, 
POFEM, PPATPT, PRANDT, PRFRBD, 

R(MOFP, SLINT, SLSKIP, SOKINT, 

SOKSOL, SPCTX, STRNOR, THERMO, 

THETPM, THRUST, TOFEM, TURN, UOFV, 
VMODF.L, VMODl, VOFEM 


♦PHI 

INRSCT, PFP, THERMO, UOFV 

♦PHYSOL 

BOUND, GAPPBI, INRSCT, ITSUB, PFP, 
PPATPT, THERMO, UOFV, VMODEL 

♦PLMOUT 

EMOFV, IDMTAB, PAGE, PFP, TAB, THERMO 

♦PLOAD 

IDMPFP, PFP, SPCTX 
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Table 3-3 (Continued) 


Element/ 

Entry 


Version 

Points 

External References 

PLUMIN 

*PLUMIN 

AOASTR, BOUND, GASRD, IBOUND, LIPI», 
LOGIC, MASCON, PARTIN, PARTPH, 
PLMOUl, SETHTG, STARTV, STLINE 

POFEM 

*POFEM 


POFH 

*POFH 

TOFH 

POINT 

♦POINT 

IDMPHI, PHI, THERMT, WG, STT, WXANDR 

POP 

♦POP 


PPATDP 

♦PPATPT 

DRAGCP, DRAGMR, EMOFV, PFP, POFEM, 
TEMTAB, THERMO TOFV 

PRANDT 

♦PRANDT 

EMOFV, PAFH, POFEM, SPCTX, THERMO, 
THETPM, TOFH, TOFV, UOFV, VMODEL 

PREAD 

♦PREAD 

IDMPFP 

PRFRBD 

♦PRFRBD 

IDMPFP, INRSCT, PFP, PPATPT 

PROG 

♦PRO 


PROP 

♦PROP 

HALL 

PUNEX 

♦PUNEX 

ARASSL, IDMPOP, SPECIE 

REAOF 

♦READF 

IDMPFP 

REPEAT 

♦REPEAT 


RGMOFP 

♦RGMOFP 

EMOPP, EMOFV, ERRORS, ITSUB, POFEM, 
THERMO, VOFEM 

RGVOFM 

♦RGVOFM 

EMOFV, ERRORS, ITSUB, TAB, THERMO, 
VOFEM 

RHOFEM 

♦RHOFEM 

POFEM 

RITE 

♦RITE 


ROTERM 

♦ROTERM 
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Table 3-“ (Continued) 


Element/ 

Entry 


Version 

Points 

External References 

SETHTG 

* SETHTG 

THERMO, TKEY 

SITER 

*S1TER 

EMOFV, ITSUB, POFEM, RGVOFM, THERMO 

SLOP 

*SLDP 


SLINT 

*SLINT 

PPATPT, SPCTX, UOFEM 

SLPLIN 

* SLPLIN 


SLSKIP 

*SLSKIP 

PFP, 3PCTX, TEMTAB 

SOKINT 

♦SOKINT 


SOKSOL 

♦SOKSOL 


SPACET 

♦SPACET 


SPCTX 

♦SPCTX 


SPECC 

♦SPECC 


SPEC IB 

♦SPECIB 

SFECC, TAB 

?ECIE 

♦SPECIE 

POP, TAB, THERMO 

.iART 

♦START 


STARTV 

♦STARTV 

AOASIR, BOUND, IBOUND, IIMPHI, ITSUl. 
MASS, MAXT, OFSET, OUTPUT, PHI, 
POFEM, RGVOFM, RHOFQl, THERMT 

STGMOD 

♦STOIOD 


STLINE 

♦STLINE 


STRNOR 

♦STRNOR 

BOUND, CHECK, ;OEFEQ, COEFF3, EMOFV, 
FNEWTN, GAPPB IDMPFP, INRSCT, 
NEWENT, PFP, PHYSOL, PPATPT, ROIOFP, 
ROTERM, SITER, SLPLIN, SPCTX, UOFV, 
VMODEL, VOFEM 
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Table 3-3 (Continued) 


Element/ 

Entry 


Version 

Points 

External References 

TAB 

*TAB 


TAPNOV 

*TAPMOV 


TEHTAB 

*TEKrAB 


THERMO 

*THERHO 

FABLE, TAB, THERMV, THERMl 

THERHT 

*THERMT 


THERMV 

*THERMV 

EMOFV, POFEM, TOFV 

THOtMl 

*THERM1 

TKEY, TOFH 

THETPH 

*THETPM 

ERRORS, ITSUB, THERMO, TOFH, TOFV 

THRUST 

*THRUST 

PFP, VEHAG 

TKEY 

*TKEY 


TOFEM 

*TOFQI 


TOFEmH 

*TOFENH 

ITSUB, TKEY 

TOFH 

*TOFH 

ITSUB, TKEY 

TOFV 

*TOFV 

ERRORS, KIKOFF, RITE 

TRACE 

♦TRACE 

PROP 

TRACE? 

♦TRACE? 

DRAGCP, DRAGMR, GAS, TEMTAB 

TRANS 

♦TRANS 

PARTIL, TAB, THERMO 

TURN 

♦TURN 

EMOFV, ERRORS, ESHOCK, ITSUB, THERMO 
UOFEM, UOFV 

UOFEH 

♦UOFEM 

ERRORS, KIKOFF, RITE 

UOFV 

♦UOFV 

EMOFV, UOFQl 


3-18 


LOCKHEED-UUNTSVILLE RESEARCH & ENGINEERING CENTER 



LNSC-IISBC TR D867400-11 


Table 3~3 (Concluded) 


Elenent/ 

Entry 



Version 

Points 

External References 


vmG 

*VEMAG 

DOTPRD 


VHODEL 

*VMODEL 



VMODl 

*VMODl 



VM0D2 

*VMOD2 



VOGEM 

*VOFEM 

TOFEM 


WALPRP 

*HALPRP 



HDGI 

’•VDGl 

PROP 


WEAR 

*UEAR 

DELTAF. EHOFV, EKTR<ff, POFEM, 
THEBIK) 

BBOFEM, 

HERE 

*WEKK 

DELTFP, EHOFV. ENTRPP, POFEM, 
THERMO 

RHOFEM, 

UG 

*HG 



WOFA 

*WOFA 



WRIT? 

*WRIPT 

imPDT, PUT 


WTPLOF 

*WTFLOP 

IDMPDT, PDT 


WTT 

*WTT 



HXANDR 

mXANDR 

PHI 


XSl 

*XSI 
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Entry 

Points 

*ALGIBT 

*AOASTR 

*ASASSL 

*AVERAG 

^IS 

*BACURD 

*BLEXIT 

*BODHD 

*BOOHOA 

*CiffiCTR 

*CBREAK 

♦CHECK 

*CHEM 

*CODEE 

*OODEF 

*CODEH 

♦OWFEQ 

*C0FFF3 


Table 3-4 RAMP2F EHT8T POIMT BEFEKENCES 
Eleaent Eleaents BeCereoclog 


ALGIMT 

DRACiai, 

EXPOOR, 

GAPPBI, 

MOCSOL, PHASEl 

AOASTR 

PLUflN, 

STARTV 



ARASSL 

PUHEX 




AVERAG 

PHASEl 




AXIS 

LOGIC 




BACURD 

MCCRIK 




BLEXIT 

DRIVER 




BUfPIN 

DRIVER 




BOUND 

BOONDA, 

PHASEl. 

FREEMC, 

PHTSOL, 

LIMITS. 

PUIMIN, 

LOGIC. MOCSOL. 
STARTV. STRNOR 

BOOHDA 

raASEl. 

PHTZOL 



CARCTR 

PUVZOL 




CBREAK 

PHASEl 




CHECK 

EXPOOR, 

PARINT, 

PHASEl, 

STRNOR 

CHEM 

NEUENT 




CODEE 

BACHRD, 

FORWRD, 

MCCRMC 


CODEF 

BACKURO 

, FORWRD 

. MCCRMR 


CODER 

MCCRIK 




COEFEQ 

NOCSOL, 

STRNOR 



COEFF3 

HOCSOL, 

STRNOR 
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Table 3*^ (Coatimied) 


Entry 
Pol at 

Eleaenc 

EleaeDta Referencing 

*OaEFS 

OOEFS 

PARTIL 

♦DECODE 

DECODE 

MCCSIK 

♦DELTAF 

OELTAF 

ESHOCK, fCAK 

♦DELTFF 

DELTFF 

ESHOCC, HEKK 

*DLTA 

DLTA 

PARTIL 

♦DOTPRD 

DOTPRD 

VEMAG 

♦DRAGCP 

DRACCP 

GAPPBl, PPATPT, TRACEP 

♦DRAOfR 

DRAGMR 

GAPrai, PPAIPT, TRACEP 

♦DRIVER 

DRIVER 

MAIN 

♦OOfSTS 

DOISTS 

MAIN 

♦EMOFP 

EMOFP 

BGMOFP 

♦EMOFV 

EMOFV 

AVERAG, IffiCODE, ESHOCC, ESHOCK, FiffiLE, 
GAPPBl, HYPQl, MASCON, MESH, OUTBIN, 
OVEREX, PARTIL, PHASEl, PLMOUT, PPATPT, 
PBANDT, BOfOPP, RFVOFM, SITER, STRNOR, 
THERMV, TURN, UOFV, WEAK, HEKK 

♦ENTROP 

ENTROP 

ESHOCK, HEAR 

♦EHTRPP 

ENIRPP 

ESHOCC, HEKK 

♦ERRORS 

ERRORS 

AOASTR, BOUNDA, GASTAP, HYPER, IMRSCP, 
INRSCT, M&SOON, MOCSOL, OVEREX, PHASEl 
PHTZOL, RaiOFP, BCVOFM, SORFLX, THETPH 
TOFV, TORN, UOFBf 

♦ESHOCC 

ESBOCC 

OVEREX 

♦ESHOCK 

ESHOCK 

OUT, SOKFLX, TURN 
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Table 3-4 


Entry 


Point 

Eleaent 

*EXPOOR 

EXPOOR 

*FABLE 

F^E 

*FIXIL 

FIXIL 

*FHEHTN 

FNEHTM 

*F(HBnLD 

FORHRD 

*FREEMC 

FBEEMC 

*GAFPB1 

GAPPBI 

*GAS 

CAS 

*GASRD 

GASRD 

*GASTAP 

GASTAP 

*HALL 

HALL 

*HYPER 

HTPER 

*IBOUND 

IBOUND 

*IDMPDT 

IDMPDT 

*IOMPFP 

IDMPFP 


*1DHPUI 

IDMPHl 

*IDHPOP 

IDMPOP 

*IDMntO 

IDHFRO 

*1DMTAB 

infTAB 

*IOHTOB 

IDMIOB 


(Continued) 

Elenents Referencing 

PHASEl 

THERMO 

PAKTIL 

HTPER. MOCSOL, STRMOR 

MCCRMK 

PHASEl 

CHECK, COEFF3, PHTSOL, STRNOR 
TRACE? 

PLUMIN 

GASRD 

mxB 

PHASEl 

LOGIC, PHASEl, PLHMIN, STARTV 

BLEXIT, PBLTRC, HRITP, HTFLOP 

BLEXIT, CHECK, C0EFF3, DECODE, FBEEMC, 
INTT, MASSCK, MCCRMC, MOCSOL, OVEREX, 
PARIMT, PAKIIN, PHASEl, PLOAD, PREAD, 
PRFRBD, READF, STRMOR 

AXIS, LOGIC, POINT, STARTV 

PUNEX 

PBLTRC 

GASRD, GASTAP, PIMOUT 
BLHPIN 
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Entry 

Table 3-4 

(Continued) 

Point 

Element 

Elements Referencing 

*II»1XSI 

IDMRSl 

GASRD 


*IDSPEC 

IDSPEC 

BLHPIN 


*IDTAPE 

IDTAPE 

GASRD 


*IHPUT 

INPUT 

GASTAP 


*IHITP 

INITP 

DRIVER 


♦INRSCP 

INRSCP 

BLEXIT, 

PBLTRC 

*IMRSCT 

INRSCT 

B(MJNDA, 

NOBMCR, 

PHYZOL, 

COEFF3, EXPOOR, FREEMC, MOCSO] 
PARINT, PHASEl, PHYSOL, 
PRFRBD, STRNOR 

*INTEGR 

INTEGR 

MASSCK 


*INTERP 

*INTT 

INTERP 

PARLOR 

PHASEl 


*IRAD 

IRAD 

PHASEl 


*ITARM 

ITARM 

FREEMC 


*ITERM 

ITERM 

PHASEl 


*ITSUB 

ITSUB 

ADASTR, 

OVEREX, 

SORFLX, 

TURN 

BLEXIT, HYPER, MASCON, NORSCR, 
PHYSOL, RGMOFP, RGVOFM, SITER, 
STARTV, THETPM, TOFENH, TOFH, 

*KIKOFF 

RIKOFF 

BOUNDA» 

TOFV, UOFEM 

*LAGRNG 

LAOEING 

BOUND 


♦LIMITS 

LIMITS 

PHASEl 


♦LIPIN 

LIPIN 

PLUMIN 
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Table 3-4 (Continued) 


Entry 

Point 

Element 

Elements Referencing 

♦LOGIC 

LOGIC 

PLUMIN 

♦HASCON 

MASCON 

PLUHIN 

♦MASS 

MASS 

OUTPUT. STARTV 

♦MASSCK 

MASSCK 

PHASEl 

♦MAXT 

MAXT 

STARTV 

♦MCCRMK 

MCCRMK 

PHASEl 

♦MESH 

MESH 

PHASEl 

♦MOCSOL 

MOCSOL 

EXPCOR 

♦NEHENT 

NEWENT 

MOCSOL, STRNOR 

♦NORMCK 

NORMCK 

PHASEl 

♦NORSCK 

NORSCK 

OUT 

♦OFSET 

OFSET 

STARTV 

♦ONED 

ONED 

PARXIL 

♦ORTHLS 

ORTHLS 

PARTIL 

♦OUT 

OUT 

FREEMC, INTT, PHASEl 

♦OUTBIN 

OUTBIN 

FREEMC, PHASEl 

♦OUTPUT 

OUTPUT 

LOGIC, STARTV 

♦OVEREX 

OVEREX 

HYPER 

♦PATH 

PAFH 

HYPER, PRANDT 

♦PAGE 

PAGE 

OUT, PARTIL, PARTPH, PLMOUT 

♦PAGVOF 

PAGVOF 

OUTPUT 
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Table 3-4 (Continued) 


Entry 

Point 

Element 

Elements Referencing 

*PARINT 

PARINT 

PHASEl 

*PARLOK 

PARLOR 

PBLTRC 

*PARSTR 

PARSTR 

PHASEl 

*PART1L 

PARTIL 

TRANS 

*PART1N 

PARTIN 

PLUMIN 

*PARTPH 

PARTPH 

PLUHIN 

*PBLTRC 

PBLTRC 

DRIVER 

*PDT 

POT 

BLEXIT, WRITP, VTTFLOP 

*PFP 

PFP 

BLEXIT, CHECK, CODEE, CODEF, CODEH, 

*PHASE1 

PHASEl 

COEFF3, FBEEMC, GAPPBl, INTEGR, INTER? , 
INTT, HASSCK, MCCRHK, MOCSOL, OUT, 
OUTBIN, OVEREX, PARINT, PARSTR, PARTIN, 
PHASEl, PHYSOL, PLMOUT, PLOAD, PPATPT, 
PRFRBD, REDIST, SLSKIP, STRNOR, THRUST 

DRIVER 

*PH1 

PHI 

AXIS, LOGIC, MASS, OUTPUT, POINT, 

*PHYS0L 

PHYSOL 

STARTV, HXANDR 
STRNOR 

*PLM0UT 

PLMOUT 

PLUMIN 

*PL0AD 

PLOAD 

PHASEl 

*PLUM1N 

PLUHIN 

DRIVER 

*P0FEM 

POFEH 

AVERAG, BLEXIT, ESHOCC, ESHOCK, FABLE, 



GAPPBl, HYPER, OUT, OVEREX, PARTIN, 
PHASEl, PPATPT, PRANDT, RGMOFP, RHOFEM 
SITER, STARTV, THERMV, WEAK, HEKK 
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Table 3-4 


Entry 


Point 

Element 

*POINT 

POINT 

*POP 

POP 

*PPATPT 

PPATPT 

*PRANDT 

PRANDT 

*PREAD 

PREAD 

♦PRFRBD 

PRFRBD 

♦PRO 

PRO 

♦PROP 

PROP 

♦PUNEX 

PUNEX 

♦READF 

READF 

♦REPEAT 

REPEAT 

♦RGMOFP 

RGMOFP 

♦RGVOFM 

RGVOFM 

♦RHOFEM 

RHOFEM 

♦RITE 

RITE 

♦ROTERM 

ROTERM 

♦SETHTG 

SETHTG 


(Continued) 

Elements Referencing 

LOGIC 

SPECIE 

CODER, COEFF3, EXPCOR, FREFRO, INTT, 
MOCSOL, OUT, PUASEl, PUYSOL, PRFRBD, 
SLINT, STRNOR 

PHASEl 

BLEXIT 

PHASEl 

GAS, PBLTRC 

DLTA, FIXIL, PARTIL, TRACE, WDGI 

DRIVER 

PARLOR 

ERRORS 

MOCSOL, PHASEl, STRNOR 

AOASTR, BLEXIT, LIPIN, MASCON, PARTIN, 
SITER, STARTV 

AVERAG, ESHOCC, ESHOCK, MASCON, STARTV, 
HEAR, HERR 

TOFV, UOFEM 

MOCSOL, STRNOR 

PLUMIN 
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Entry 

Table 3-4 

(Continued) 

Point 

Element 

Elements Referencing 

*SITER 

SITER 

BLEXIT, LOGIC, PARTIL, STRNOR 

*SLDP 

SLOP 

CHEM 

*SLINT 

SLINT 

PHASEl 

*SLPLIN 

SLPLIN 

STRNOR 

*SLSKIP 

SLSKIP 

PHASEl 

*SOKINT 

SOKINT 

PHASEl 

*SOKSOL 

SOKSOL 

PHASEl 

*SPACET 

SPACET 

DRIVER 

*SPCTX 

SPCTX 

CHECK, EXPCOR, IMPDT, IRAD, MOCSOL, 
OUT, OUTBIN, PARTIN, PHASEl, PLOAD, 
PRANDT, SLINT, SLSKIP, STRNOR 

*SPECC 

SPECC 

SPECIB 

*SPECIB 

SPEC IB 

BIMPIN 

♦SPECIE 

SPECIE 

PUNEX 

♦START 

START 

PBLTRC 

♦STARTV 

STARTV 

PLUMIN 

♦STGMOD 

STCMOD 

AVERAG, FREPRO 

♦STLINE 

STLINE 

PLUMIN 

♦STRNOR 

STRNOR 

PHASEl 

♦TAB 

TAB 

FABLE, GASRD, lOTAPE, PARTIL, PLMOUT 
RGVOFM, SPECIE, THERMO, TRANS 

♦TAPMOV 

TAPMOV 

PARLOK, PBLTRC 
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"lable 3-4 (Continued) 


Entry 

Point 

Element 

Elements Referencing 

*TEHTAB 

TEMTAB 

GAPPBI, OUTBIN, PPATPT, SLSKIP, TRACER 

*THERMO 

THERMO 

AOASTR, AVERAG, CBREAK, DECODE, 

*THERMT 

THERM! 

ESHOCC, ESHOCR, GAPPBI, HYPER, LIPIN, 
MESH, OUT, OUTBIN, OVEREX, PARIIL, 
PARTIN, PHASEI, PHYSOL, PHYZOL, PlilOUT 
PPATPT, PRANDT, R(aiOFP, RGVOFM, 

SETHTG, SITER, SOKFLX, SPECIE, 

THETPM, TRANS, TURN, WEAK, HEKK 

LOGIC, MASS, OUTPUT, POINT, STARTV 

*THERMV 

THERMV 

THERMO 

*THERM1 

THERMl 

MOCSOL, THERMO 

*THETPM 

THETPM 

HYPER, PHASEI, PRANDT 

*THRUST 

THRUST 

PHASEI 

*TKEY 

TKEY 

CHEM, SETHTG, THERMl, TOFENH, TOFH 

*TOB 

TOB 

BLMPIN, SPECIE 

*TOFEM 

TOFEM 

AVERAG, BLEXIT, DECODE, PARTIL, 

*TOFENH 

TOFENH 

PARTIN, PHASEI, VOPEM 
NORSCK 

*TOFH 

TOFH 

HYPER, PAFH, POFH, PRANDT, THERMl, 

*TOFV 

TOFV 

THETPM 

AVERAG, EMOFV, FABLE, GAPPBI, PARTIL, 

*TRACE 

TRACE 

PPATPT, PRANDT, THERMV, THETPM 
PARTIL 

♦TRACEP 

TRACER 

PBLTRC 

*T8ANS 

TRANS 

DRIVER 

*TURN 

TURN 

PHASEI 
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Entry 

Table 3-4 

(Concluded) 

Point 

Element 

Elements Referencing 

*UOFEM 

UOFEM 

BLEXIT, DECODE, PARTIN, SLINT, TURN, 
UOFV 

*UOFV 

UOFV 

GAFPBI, LIPIN, OVEREX, PHASEl, PHYSOL 
PHYZOL, PRANDT, SOKFLX, STRNOR, TURN 

*VEHAG 

VEHAG 

INTECm, OUT, THRUST 

*VMODEL 

VMODEL 

CHECK, EXPCOR, HOCSOL, PHASEl, PHYSOL 
PRANDT, STRNOR 

*VMODl 

VMODl 

OUT, OUTBIN, PHASEl 

*VMOD2 

VMOD2 

OUT 

*VOFEM 

VOFEM 

HOCSOL, PHASEl, ROIOFP, RGVOFH, 
STRNOR 

*WALPRP 

HALPRP 

BLMPIN 

*M)G1 

WDGl 

PARTIL 

*WEAK 

WEAK 

ESUOCK 

*WEKK 

WEKK 

ESUOCC 

*WG 

UG 

POINT 

*WOFA 

UOFA 

ADASTR 

*WRITP 

WRITP 

PBLTRC 

*WT?LOF 

WTFLOF 

FREEHC 

*WTFLOP 

WTFLOP 

PBLTRC 

*WTT 

WTT 

POINT 

*WXANDR 

WXANDR 

POINT 

*XSI 

XSl 

FABLE, GASRD 
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Table 3-5 RAMP2F COMMON BLOCK SIZE AND REFERENCES 


Common 

Size (Decimal) 

Routines Referencing 

Block 

ACOM 

1 

DRJVER, PLUMIN, WTFLOP 

AMF 

25 

OUT, OUTBIN, PUASEl 

AUK 

1 

DRIVER, EXPCOR, OUTBIN 

AVPROF 

24 

COEFEQ, MOCSOL, NEUENT, STRNOR 

AVPRP2 

7 

COEFEQ, STRNOR 

BIMDAT 

50 

BLMPIN, CHEM, PHASEl 

BOMOUT 

2 

OUT, PARTIN, TURN, UOFEM, UOFV 

BPRESH 

6 

BLEXIT, GASTAP, IDTAPE, PHASEl, PLUMIN 

CAPUR 

1 

BLEXIT, DRIVER, EXPCOR, GAPPBI, LOGIC, 

CHEMCN 

8 

PHASEl, PHYSOL, PLUMIN, PUNEX, STRNOR 
PPATPT 

BLEXIT, CHECK, CHEM, COEFEQ, GASTAP, 

CHEMXX 

459 

IMPUT, NEWENT, OUT, OUTBIN, PHASEl, 
PLOAD, PLUMIN, PUNEX, READF, RGVOFM, 
SETHTG, SLSKIP, SPCTX, STRNOR, THERMl, 
TOFENH, TOFH 

BiVCWRD, CHECK, CHEM, CODEE, CODEF, 

CHEMXY 

2 

COCEH, COEFEQ, DECODE, EXPCOR, 
FORWRD, IMPUT, MCCRMK, MOCSOL, 
NEWENT, OUT, OUTBIN PARTIN, PHASEl, 
PHYSOL, PRANDT, SETHTG, SLSKIP, 
SPCTX, STRNOR, THERMl, 

TOFENH, TOFH 

NEWENT, STRNOR 

CHEMYY 

160 

CHEM 

CHEQ 

1 

DECODE, DRIVER, GASRD 
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Table 3-5 

(Continued) 

Common 

Block 

Size (Decmial) 

Routine Referencing 

CHOCK 

1 

GAS, PBLTRC, TRACEP 

CONTRL 

26 

ARASSL, AVERAG, BACHRD, BLEXIT, 


BLMPIN, BOUNDA» CBREAK, CHECK, CHEM, 
CODEE, CODEF, CODEH, COEFEQ, COEFF3, 
DECODE, DRIVER, ERRORS, ESHOCC, 

ESHOCK, EXPCOR, FABLE, FORWRD, FREEMC, 
GAPPBl, GASRD, GASTAP, HYPER, IBOUND, 
IDTAPE, IMPUT, INITP, INTEGR, IRAD, 
KIKOFF, LAGRNG, LIMITS, LIPIN, MASCON, 
MASSCK, MCCPMK, MOCSOL, NEWENT, OUT, 
OUTBIN, PAFH, PAGE, PARTIL, PARTIN, 
PARTPH, PBLTRC, PHASEl, PHYSOL, 

PHYZOL, PLMOUT, PLOAD, PLUMIN, POFH, 
PPATPT, PRANDT, PREAD, PRFRBD, 

PUNEX, READF, RQIOFP, RGVOFM, 

SLINT, SLSKIP, SOKFLX, SPCTX, SPECIE, 
SPECIE, STARTV, STLINE, STRNOR, 

TAPMOV, TEMTAB, THERMO, THERMV, 

THERMl, rriETPM, THRUST, TRANS, TURN, 
WTFLOF, WTFLOP 


CONVV 

5 

PBLTRC, READF, TRACEP, WRITP 

CPMUK 

3 

AVERAG, BLMPIN, CBREAK, COEFF3, 
DECODE, DRIVER, FABLE, GAPPBl, IMPUT, 
MOCSOL, PaFH, POFH, PPATPT, PRANDT, 
PUNEX, SPECIE, STRNOR, THERMO, THERMV 
THERMl, TOFENH, TOFH, TRANS 

CPSV 

1 

PHASEl, PHYSOL, STRNOR 

CRITER 

20 

CHEM, C0EPF3, DRIVER, FREEMC, GAPPBl, 
INITP, MOCSOL, OUT, PHASEl, PHYSOL, 
PLUMIN, PPATPT, PRANDT, SOKFLX, 
STRNOR, TURN 
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Table 3'-S (Continued) 


CooBon 

Block 

Size (Decimal) 


Routine Referencing 

(ROSS 

2 

STRNOR 


CUTFO 

6 

DRIVER, 

PLMOUT, 

FREQIC, ITARN, ITERH, PHASEl, 
PLUMIN 

OAT 

800 

INTERP, 

PARLOR, READF 

DATAR 

3602 

ARASSL, 

BLMPIN, 

AVERAG, AXIS, BACHED, BLEXIT, 
BOUND, BOUNDA, CBBEAK, CHECK, 


COOEE, CODEF, CODER. COEFEQ. C0EFF3. 
D^. DECODE. DRIVER. EXPCOR. FIXIL. 
FNEUTN. FORHRD. FREEMC. FREPRO. 
GAPPBI. GASRD. GASTAP. HYPER. IBOUND. 
IMPUT. INITP. INTEGR. INTT. HARM, 
IT^. LA(aUiG. LIMITS, LOGIC, MASS, 
MASSCK, MAXT, MCCRMK. MESH. MOCSOL. 
IK)RMCK, OFSET, OMED, OUT. OUTBIN, 
OUTPUT, OVEREX, PARINT, PARSTR, 
PARTIL, PARTPH, PHASEl, PHI. PHYSOL, 
PHYZOL, PLMMIT. PLOAD, PLUMIN, POINT. 
PPATPT. PRANDT, PRFRBD, PROP, PUNEX, 
REDIST, SLINT. SLSKIP, SOKFLX, 

SPECIE. STARTV. STGMOD, STLINE, 
STRNOR, THERMT, THRUST, TRACE, TRANS, 
HDGI. HG, HTFLOF, HTT, HXANDR 


DBUG 4 

DELT 1 

DFDR 13 

DISCOH 2 


HALL 

DLTA. HALL, PARTIL 
BACKURD, FORHRD, MGCRMK 
DRIVER, INITP 


DRAG 


2 ONED, PARTIL, TRACE, TRANS 
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Table 3 

-5 (Coatiaued) 

Coanon 

Block 

Size (Deciaal) 

Routine Referencing 

DRAGCF 

101 

BLKDAT, DRAGCF, DRIVER, GAPPBl, 
PARTPU, PLHOUT, PLUMIN, PPATPT, 
TRACEP, TRANS 

DROP 

100 

CHEOC, PHASEl, PHYSOL, SimiOR 

DRUG 

512 

BLKDAT, DRAGMR 

EFHARY 

29 

BACHRD, COlffiE, (XN)EF, COI^H, 
DECODE, FORHRD, MCCRIflC, 

ERR 

1 

PARTIL, TRAMS 

EVERY 

2 

PARLOR, READF 

EXPER 

5 

HYPER, PAFH, PHASEl, POFH, PRANDT 

EXPNN 

1 

GASRD, PLIRIIN 

FAB 

3 

DRIVER, FABLE, THERMO 

FILIT 

4 

PARTIL 

FIND 

2 

TRACEP 

FLOW 

2 

PARLOR 

FORCE 

3 

DRIVER, MASSCK, OUTBIM, THRUST 

FREE 

8 

AVERAG, DRIVER, FREEMC, FREPRO, 
MOCSOL, PHASEl, PLMOUT, PLUMIN, 
PPATPT, STGMOD, STRHOR 

FSIAG 

806 

AVERAG, BACHRD, CBREAK, CHECK, 

OODEE, CODEF, CODEH, DECODE, 

EXPCOR, FORHRD, FREEMC, FREPRO, 
GAPPBl, GASRD, HYPER, INTEOt, INTT, 
IRAD, LIPIN, MASSCK, MCCRMK, MOCSOL, 
OUT, OUTBIN, PARTIN, PHASEl, PHYSOL, 
PLMOUT, PLOAD, PPATPT, PRANDT, 
PRFRBD, SLIMT, SLSKIP, STQfOD, 
STRMOR, THRUST 
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Table 3-S - (Cootinued) 


Coaaon 

Block 

GAPPA 


GASCON 


GASDAT 

GLOBAL 

GRINT 

GSV 


Size (Oeciaal) 


Boutine Beferenclog 


14A2 AVEBAC, BACUBD, BLEXIT, CHECT, GOiKE. 

OOOEF. CODEH, COEFEQ, COEFF3, 

DECODE, DBIVER, EXPCOR, FOBHBO, 
FBEPRO, GAPPBl, IKTT. MCCBME, MOCSOL, 
NEISirT, OUT, OUTBIM, PARIVT, PABSTB, 
PU.TBC, PDT, PHASEl, PHTSOL, PLMOUT. 
PLUMIN, PPATPT, PBFBBD, PUHEX, 

SLUT, SPECIE, STGMOD, STB1K«, 

WBITP, HTFLOP 

5 AVEBAG, BACWBD, BLEXIT, CODEE, (XWEF, 

GOOEH, COEFF3, DAMP, KOODE, DELTAF, 
DELTFF, DBIVER, EHOFP, EMOF?, EMTBOP, 
EMTBPP, ESBOCC, ESHOOL, FABLE, FOWBD 
FUEMC, FBEraO, GAPPBl, GASBD, HYPER, 
INPUT, LIPIN, MCCBIfK, MOCSOL. HORSCK, 
OUT, PAFH, PABIIL, PABTIN, PHASEl, 
PHTSOL, PIMOUT, PLUMIN, POFLM, POFH, 
PPATPT, PBUDT, BEDIST, BCMO^, 
BCVOFM, BHOFSl, SETHTG, SITER, SfHCFLX 
STABIV, STGMOD, STRNOR, THEBHO, 
THEBMT,THERM1, THETFM, TOFEM, IDFENH, 
TOFH, TOFT, TBANS, TOFEM, HEAR, WXR, 
HOFA 


2562 BLEXIT, BLMPIN, (SEN, DRITER, FABLE, 

GASRD, GASTAP, IDTAPE, INPUT, LIPIN, 
OUT, OUTBIN, PABTIL, PABTIN, PASIPH, 
PHASEl, PUfOUT, PLUMIN, FUNEX, BGHOFP 
BCMOFM, SETHTG, SLSKI P, S TOCU, 
SPECIE, TAB, THEBMO, THEBMT, THERMT, 
THEBHl, TOB, TOFENH, lOFH, TBAIS 

500 BACHBO, CHECK, COiSE, CODEF, CODEH, 

DECODE, EXPCOR, FOBHRD, FBEEMC, 

INTT, MCCBMR, MOCSOL, OUTBIN, PHASEl, 
PLOAD, STBIK)R 

2 DRITER, FABLE, THEBHO 

1 AVEBAG, STGMOD 
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Table 3-5 (Continued) 


Block 

Size (Oeclaal) 

Routine Referen'ing 

BRAn 

60 

ORIVQL. GASTAP, lOTAPE, IMITP, OUT, 
PAIX, PAGVW, PLMOUT, PUMIN 

HIIHAL 

11 

BLEXIT, PBLTRC, URITP, HTFLOP 

HJL 

1 

GASRD, GASTAP, TRANS 

UN. 

1 

BI£Z1T, DRlVra, PLOMIM 

ILIME 

1 

PABIIL 

IHFUT 

800 

LIPIN, PARTIN, PUfOin, PLOMIN. STLINE 

IHTCR 

10 

GASRD, INTEGR, MASSCK, THRUST 

INTEU 

1 

PHASE!, STRNOR 

ina 

1 

BLEXIT, DRIVER, PBLTRC, HRITP 

IRM 

1 

DECODE. HCCRMR. PHASEl 

ISEA 

1 

PHASEl, RGMOFP, STRNOR 

ISTRI 

1 

BLEXIT, DRIVER, OUTBIN, PLUMIN, PUMEX 

ITOTI 

1 

PARLOR, READF 

LIMIT 

20 

PARLOR, READF 

LIPCOH 

8 

PARTIN, PLUMIN, SETUTG 

LIPFX 

1 

PHASEl, STRNOR 

LIPNT 

2 

STRNOR 

LIPPT 

12 

BLMPIN, PHASE] 

LSAD 

11 

CHECR, PARINT, PARSTR, PHASEl 

LSTRLN 

20 

INTT, MCCRMR 
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Table 3-S (Continued) 


Coaoon 

Block 

Size (Decioal) 

Routine Referencing 

NASOUT 

2 

MASSCK, PHASEl 

NAS SC 

11 

DRIVER, MASSCK, PARTIN, PLMODT, 
PLUMIN, TRANS 

MET 

2 

PBLTRC, READF, SPACET, TAPMOV 

noL 

32 

AVERAG, DRIVER, FABLE, GASRD, 
PlifOUT, PLOMIN, THERMV 

NAICA 

10 

PASTIL, PROP, TRACE, TRANS 

NAHEL 

24 

ONED, PASTIL, TRACE, TRAMS, 

HDGI 

N^IEM 

7 

(HiEO, PASTIL, TRACE, HDGI 

HAICQ 

7 

ONED, PARTIL, TRACE, TRAMS 

HAMER 

43 

FIXIL, (»IED, PASTIL, PROP, TRACE, 
TRAMS 

NMIES 

10 

DLTA, FIXIL, ONED, PASTIL, PROP, 
TRACE, HDGI 

NitflEH 

2 

PROP, TRANS 

NAHEX 

5 

ONED, PARTIL, PROP, TRACE, TRANS 

NAMET 

31 

ONED, PASTIL, PROP, TRACE 

NAMEl 

5 

ONED, PARTIL, PROP, TRANS 

NSF 

10 

DRIVER, MASSCK, PARTIN, PHASEl, 
STRNOR 

OFSTAR 

10 

DRIVER, GASRD, GASTAP 

ONTSPT 

2 

COEFEQ, C0EFF3, DRIVER, MOCSOL, 


PARTIN, PPATPT, PRFRBD, STRNOR 
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Cooaon 

Block 

OVERLA 

PARSTU 

PABTPl 

PAB3T2 


PARTP4 


PARTTP 

PARTHT 

PBLL 

PCTC 


Table 3-5 (Contimied) 


Sise (Decioal) Routine Befereoclog 


1 

PHASEl, 

STRNOR 

10 

C0EFF3, 

STRNOR 

10000 

MAIM 


21 

ARASSL, 

BACHRD, BLEXIT, BLMPIN, CHECK 


CODEE, CODER, OODEH, DECODE, DRIVER, 
FABLE, FOBWRD, FREEMC, GAPPBl, 

GASTAP, IDTAPE, INTEGR, HiTT, MASSCK, 
MCCRMR, MOCSOL, NEHENT, OUT, (WTBIN, 
OVEREX, PARINT, PARLOR, PARSTR, 
PABTIL, PARTIN, PARTPH, PBLTRC, PFP, 
PHASEl, PHKOL, PUfOUT, PLOAD, 

PLDNIN, PPATPT, PRANDT, PREAD, 

PRFRBD, PONEX, SLINT, SLSKIP, 

SPECIB, SPECIE, STRNOR, THERMO, 
THERMV, THRUST, TRAMS, HTFLOP 

400 ARASSL, BACHRD, BLEXIT, CHECK, CODEE, 

CODEF, CODEH, C0EFF3, DECODE, 

DRlVlffi, FORMED, FREEMC, GAPPBl, 
INTEGR, INTT, MASSCK, MCCRMR, MOCSOL, 
OUT, OUTBIN, OVEREX, PARINT, PARSTR, 
PARTIN, PFP, PHASEl, PHYSOL, PLMOUT, 
PLOAD, PLUMIN, PPATPT, PRANDT, PREAD, 
PRFRBD, PUNEX, SLINT, SLSKIP, STRNOR, 
THERMO, THRUST 

3 PLMOUT, PLUMIN 

1 DRIVER, PLUMIN, PUNEX 

1 CODEH, DRIVER, PPATPT 

5 BLMPIN, GAPPBl, GASTAP, HYPER, IMPUT, 

LIPIN, MOCSOL, NORSCK, PAFH, PABTIL, 
PARTIN, PHASEl, POFH, PPATPT, PRANDT, 
^THTG, THERMl, TOFENH, TOFH, TRANS 
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Table 3-5 (Coatinued) 


Commoo 

Block 

Size (Oecinal) 

Routine Referencing 

PHISOL 

40 

PHYZOL, STRNOR 

POINTC 

2 

CHECK, COEFF3, GAPPBI, MOCSOL, PHYSOL 
STRNOR 

PRAD 

1623 

IRAD, OUT, OUTBIN, PBLTRC, PHASEl, 
PLMOUT, PLUHIN, READF 

PRNV 

1 

DRIVER 

PRTINT 

4 

FREEHC 

PSEC 

4 

COEFF3, PHASEl, STRNOR 

PSLD 

42 

COEFF3, DRIVER, GAPPBl, MASSCK, 
PAETIN, PBLTRC, PIUOUT, PLUMIN, 
PPATPT, THRUST 

PSTR 

200 

OUT, OUTBIN, PHASEl 

PTEN 

2 

BLMPIN, PHASEl 

PUNEXT 

4 

OUTBIN, PHASEl 

PUT 

1 

CHECK, EXPCOR, PHASEl 

PWl 

1 

PROP 

QUITIT 

1 

PARLOK, PBLTRC 

RSTART 

2 

DRIVER, PHASEl, PLUMIN 

RUE 

2 

CHEM, STRNOR 

RHTD 

3 

FIXIL, PROP, TRANS 

RZHAP 

3 

FIXIL, PROP 

RZWl 

6 

FIXIL, PARIIL, PROP, TRACE, TRANS, 
WDGI 
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Table 3-5 

(Continued) 

Conmon 

Block 

S'ze (Decimal) 

Routine Referencing 

SAVE 

10 

GAS, TRACER 

SAVTEH 

122 

PARLOR 

SIGMB 

100 

GASTAP, INPUT, PLUMIN, SETHTG 

SIGNAL 

1 

DRIVER, MASSCK, PLUHIN 

SKIPPY 

6 

ARASSL, BLEXIT, BLHPIN, DRIVER, 
GASTAP, PHASEl, PLUMIN, PUNEX, SLSKIP 

SLIPPT 

40 

COEFEQ, COEFF3, HOCSOL, NEHENT, 
PHYSOL, PHYZOL, PRFRBD, STRNOR 

SLOW 

1 

TRACER 

SOURCE 

2 

PARTIL 

SPECI 

1650 

ARASSL, PUNEX 

SPEL 

5000 

ARASSL, BLEXIT, BLHPIN, DRIVER, INPUT, 
LOGIC, HASS, OUTPUT, PARLOR, PARTIN, 
PBLTRC, PUNEX, l.'^CTX, SPECC, SPECIE, 
START, STARTV 

SPFK 

71 

BLHPIN, SPECIB 

STATN 

61 

INTERP, PARLOR 

STEPC 

10 

CHECK, DRIVER, EXPCOR, FREEHC, 

INITP, MASSCK, MESH, HOCSOL, PHASEl, 
PLMOUT, PLUHIN, PRANDT, STRNOR, 
THETPM 

STSUB 

1 

ADASTR, PLUMIN, STARTV 

SVDT 

3 

GASTAP, IDTAPE, PLUMIN 

TAPRIT 

1 

DRIVER, GASTAP, IDTAPE, INPUT, OUTBIN 
PARTPH, PLMOUT, PLUMIN 
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Table 3-5 (Continued) 


Common 

Block 

Size (Decimal) 

Routine Referencing 

TEMPER 

1 

AVERAG, DRIVER, EMOFP, FABLE, GAPPBI, 
OUT, PARTIN, PHYSOL, POFQl, PPATPT, 
STQfOD, THERMO, THERMV, TUERMl, TOFH 

TEMPOl 

24 

BOUNDA, PHASEl, PHYZOL 

TEHP02 

40 

PHASEl, PHYSOL, STRNOR 

TEMPOS 

25 

PHASEl 

TFLAG 

11 

DRIVER, GAPPBI, OUTBIN, PARTPH, 

PBLTRC, PLUMIN, PPATPT, SLSKIP, TEMTAB 

TOTAL 

2 

AVERAG, BACURD, CBREAK, CODEE, CODEF, 
CODEH, COEFF3, DECODE, FORMED, 

MCCRHK, OUT, PARINT, PARSTR, PHASEl, 
SLINT, STRNOR 

TPEH 

1040 

DRIVER, PARTPH, PUNEX, TEMTAB, TRANS 

TRCDAT 

162 

GAS, PARLOR, PBLTRC, START, HTFLOP 

TRPRT 

4 

BLMPIN, DiaVER, EXPCOR, GASRD, GASTAP, 
IDTAPE, IMPUT, MASSCK, OUTBIN, PARTIN, 
PARTPH, PHASEl, PLUMIN, PUNEX, THRUST 

TUIPA 

146 

STRNOR 

UBVB 

5 

DLTA, FIXIL, HALL, PROP 

VAROF 

1 

DRIVER, GAPPBI, GASRD 

VARSL 

1 

DRIVER, IMPUT, PLUMIN 

VISEX 

3 

GAPPBI, INPUT, HOCSOL, NEHENT, PARTIN, 
PHASEl, PLUMIN, PPATPT, PUNEX, SETHTG, 
THERMl, TOFENH, TOFH, TRANS 

VISSS 

2 

PUNEX, SPECIE 
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Table 3-5 (Concluded) 


Connnon 



Block 

Size (Decimal) 

Routine Referencing 

VLIM 

161 

DRIVER, GASRD, THERMO, TUERMV 

VMIXI 

9 

COEFEQ, NEWENT 

VM1X2 

50 

CHBi, OUT 

VMIX3 

27 

BLEXIT, CHECK, CHEM, COEFEQ, EXPCOR, 
MOCSOL, NEWENT, OUT, OUTBIN, PUASEl, 
PUYSOL, PLUMIN, PRANDT, PUNEX, STRNOR 

VM1X4 

3 

CHECK, PHASEl 

VMIX5 

3 

NEWENT 

VMIX6 

1 

CHECK, PHASEl 

VSON 

2 

DRIVER, GASTAP, TRANS 

VTRY 

16 

FABLE. THERMV 

WAFT 

2 

BOUND, DRIVER, LAGRNG, PHASEl, 
PLMOUT, PLUMIN 

WALBO 

7 

BLMPIN 

WALPR 

2642 

BLMPIN, WALPRP 

WRITIT 

1 

PHASEl 

WRITIT 

1 

DRIVER, OUT, PLUMIN 

WT 

1 

DRIVER, MASSCK, PARTIN, PLMOUT, 
THRUST, 

XSICOM 

520 

DRIVER, FABLE, GASRD, XSI 

XXSH 

1 

C0EFF3, DRIVER, GAPPBI, GASTAP, 

IDTAPE, PARTIL, PHASEl, PLUMIN, PPATPT 
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4. PROGRAM FILES 

This section provides a list and description of all the files that are 
required to execute the entire RAHP2 programs. Table 4-1 presents a list of 
all the files along with their function, type of files (INPUT/OUTPUT) , 
programs in which they are used and additional comments. 

• DESCRIPTION OF THE UNFORMATTED BINARY OUTPUT OF THE RAMP2F 
FLOWFIELD TAPE (UNIT 3) 


The binary tape output on Unit 3 Is described in this section. Initial 
input data are written on the first part of the data tape and gaseous and 
particle data are written out for each data point in the flow field. This 
tape is formatted so that it may be used by other auxiliary routines (plot, 
plume impingement or radiation). When the RAMP2F program is sequentially 
executed for both the nozzle and plume the plume data are stored behind the 
nozzle data as if a single run has generated the flowfield. 

GROUP I - General Information 

Number of Records = 1 

Write ( ) (HEADER(I), 1-1,60) ,1SPECS,IMETRIC,RSTAR,LIN3,IC0N1,NRSS 

• HEADER 

• run identification (2A4) 

• date (3A4) 

• description (35A4) 

• ISPECS - number of particle species to be considered 

• IMETRIC* - 0 English flowfield units 

- 1 Metric flowfield units 

t 

Determined from 1C0N(9) 
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Function 


BLIHPJ Data 


Table 4-1 DESCRIPTION PROGRAM FILES USED BY RAMP2 CODES 


Input/Outpuc I Program Type 




Boumiury Layer 
Inforoat loo 


Output 


Output RAHP2F(1) U 
Input/Output BLIHPJ U 
Input RAHP2F(2) 







Flowfleld Data 


Scratch File 


TRAN72 Product 
Data 


Card Input 


Printed 

Output 


Punched 

Output 


Startline Data 
Scratch File 


Output RAHP2F(1) U 
Input BLIHPJ U 
Input/OutpuC RAHP2F(2) U 
Output/Input TRAN72 U 


TRAN72 

RAMP2F(1) 


TRAN72 

RAMP2F 


TRAN72 

RAMP2F 

BLIHPJ 


TRAN72 

RAMP2F 


Output/Input RAMP2F(1),(2) 





10 

Thermodynamic 

Data 

Output 

Input 

TRAN72 

RAMP2F(1) 

11 

Scratch 

Output/Input 

RAMP2F(1) 

RAMP2F(2) 

12 

Restart Start- 

Output 

RAHP2F(1) 


line and SPF 
Startllne Data 

Input 

RAMP2F{2) 

13 

Input Data ^ 

1 

Output 

Input 

RAHP2F(1) 

RAHP2F(2) 



Comments 


This file is output by RAMP2F 
program and contains the Input 
data to BI.IMI'J program. 


This file contains the 
stations coordinates for 
the boundary layer and the results 
of the boundary layer solution for 
each boundary lays- 'computational 
station. The RAHP2F(1) nozzle 
execution outputs this file. The 
BLIHPJ uses this file as Input and 
outputs on this file. The 
RAHP2F(1) plume run uses this file 
as Input. 


This file is output by the 
RAMP2F(1) nozzle run and Is 
used as Input by the BLIHPJ 
code. The second RAHP2F(2) run 
uses this file as Input then 
outputs the plume data behind the 
nozzle data (RAMP2F(1)). 


This file contains the curve 
fit and transport data used by the 
TRAN72 program. The RAHP2(1) 
nozzle solution also uses this 
file to generate data for the 
BLIHPJ program. 


Input data file for TRAN72 
and RAHP2F(1) codes. 


Printed output file. 


Punched output file for 
TRAN72 and RAMP2F codes. 


This file conta.'ns the 
startline generated by the RAHP2F 
code using either the single 
phase or two-phase transonic 
modules. This file could also 
contain a startline generated by 
another code If It Is In the 
correct format. 


TRAN72 cutflle of thermodynamic 
data used by RAHP2F(1) and 
RAMP2F(2) is Input. 




Scratch File 


This Is a file generated by 
RAHP2F(1) nozzle solution 
which contains the SPF exit plane 
and normal exit plane data which 
Is used to generate the exit 
plane SPF and restart staartllne 
which contains the boundary layer. 


All input data (cardsftspe 5)) 
for the RAMP2F(1) nozzle solution 
is output on this file and is 
read as Input In place of File 3 
for the RAMF2F(2) plume run. 
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• RSTAR » Throat radius (ft or meters) 

• LIN3 B 1 single line output (See ICON(8) of Input) 

2 two line output 

3 three line output 

• ICONl B 1 gas properties read from cards 

2 gas properties read from tape 

3 finite rate chemistry 

4 same as 3 except frozen 

• NRSS 0 not presently used. 

GROUP II - Gas Data (Written only if ICON(I) < 3) 

Number of Records = 1 + I0F*IS 

Write ( ) (BETA(I), 1=1, 6), lOF, IS 

• BETA Is gas identification name (6A4) 

• lOF number of total enthalpy cuts through 

"Molller chart" (max = 10) 

• IS number of entropy cuts (max = 1) 

DO M=1,I0F 
DO 1=1, IS 

Write ( ) IV,IDATA, ((TEMP(J,K), K=l, IDATA), J=l, IV), IVT, 
((CPM(J,K), K=l,5), J=l, IVT), RSTAR, PINF, EMINF, 
GAMINF, FINF, EXINF, XSHIFT, HTREF 

• IV number of velocity cuts through "Mollier chart" 

for this total enthalpy and entropy + 2 (max = 15) 

• IDATA number of gaseous species present for this total 

enthalpy and entropy (max = 98) 

• GAMINF freestream isentropic exponent 

• IVT = lV-2 

• RSTAR throat radius (ft or m) 

• PINF ambient pressure (psf or Newtcns/m^) 
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Htg 

I 

c 

0 
n 
s 
t 
a 
n 
t 

1 

IV Htg 


• EMINF 

• EXINF 

• FINF 

• XSHIFT 

• HTREF 

• TEMP 

2 3 4 


P T S 

c 

0 
n 
s 
t 
a 
n 
t 

1 

P T S 


freestream or external stream Mach number 


limit to which equation applies 

linear static pressure gradient (slope) approach 

nozzle length (ft or m) 

total enthalpy (cal/gm) of gas table for 0.0 Hf 
table (see Vol. Ill, Section 4.) 


contains the following information for each value 
of lOF.lS 


5 6 7 8 9 . . . . IDATA 


l|^ Y 


(A4) 
(A4) 
Me X 

M* I 


(A4) Species 

(A4) Name 

Xf 


Mole 

Fractions 


M 


X 


F 


• Pf 

• Htg 

• P 

• T 

• S 

• 

• Y 

• M* 

• M 


freeze pressure (atm) 

total enthalpy of the gas (cal/gm) 

pressure (atm) 

temperature (K) 

entropy (cal/gm' K) 

molecular weight (gm/gm-mole) 

isentroplc exponent 

throat Mach number = 1 

Mach number for this table entry 
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• cm 

contains the following Information 

1 

1 2 3 4 5 

Pr M C Not H 

2 

Used 

3 

# 

IVT 

• Pr 

Prandtl nurber 

• U 

viscosity (pclse) 

• s 

ST-acific heat at constant pressure (cal/gm-K) 

• H 

static enthalpy (cal/gm) 

GROUP III - Finite Rate Chemistry (Only if ICON(l) ^ 3) 

Write ( ) 

NT,NS,PC,TC,PR,VISO,EX 

• NT 

number of ten^erature entries for thermodynamic 

• NS 

data tables 

number of chemical species 

• PC 

chamber pressure (atm) 

• TC 

chamber temperature (°K) 

• PR 

Prandtl number 

• VISO 

chamber viscosity (Ibf-sec/ft^, kgm/m-sec) 

• EX 

viscosity exponent (y = Uq(T/Tq)®*) 


Write ( ) ((AID(1,LL),LL=1,2),I=1,NS) 

• AlD(I,l) first half of species number (A4) 

• AID(1,2) second half of species name (A4) 


Write ( ) NT, (TTB(L) ,L=1,NT) , (CPTB(J.L) ,HTB(J,L) ,L=1,NT) ,J=1,NS ) 

• TTB temperature for each task entry (°K) 
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• CPTB 

• CTB 

• HTB 


specific heat for each cable entry (cal/oole-^) 
entropy for each cable entry (cal/nole-^) 
enthalpy for each table entry (cal/mole) 


GROUP IV - Gas Particle Data 


Ihinber o* Records = ISPECS+1 

Write ( ) IDUM, ((PSP(I,J), 1=1,2), J=l, ISPECS) 

• IDiSl duraay word 

a PSP(1,J) mass density of particle (slug/fc^ or 


• PSP(2,J) radius (ft or m) 

DO 1=1, ISPECS 

Write ( ) NTAB1,TMELT,HS0L,HLIQ,(HFIT(N,1,I),HFIT(N,2,I),M=1,NT^1) 

• NTABl number of table entries for this species 

melt temperature (R or K) 


• TMELT 

• USOL 

• HLIQ 


enthalpy before phase change (ft^/sec^-R or 
m^/sec^-K) 

enthalpy after phase change (ft^/sec^-R or 


m^/sec^-K) 

• UFIT(N,1,I) temperature (R or K) 

• HFIT(N,2,I) enthalpy (ft^/sec^ or m^/sec^) 


Note that if NTAB=1 species is ideal and HFIT(1,1,I) = Cp^ (specific heat 
of liquid) and HFIT(1,2,I) = Cpg (specific heat of the solid). 


GROUP V - Flowfleld Data 


Number of records = 1 + ILAST + 122^1 * ILASX + * HAST + ILIM 
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Write ( ) (ILAST, ILIM.THRUST.AEXIT.IEXIT 

• ILAST nuaber of data points on the following nomal 

surface. If ILAST « 0 there is no inforaation to 
follow 


• ILDl 

• THRUST 

• AEXIT 

• lEXIT 


nuaber of points that have particles present 

thrust (Ibf or Newtons) 

exit plane area (£t^ or a^) 

exit flag 0 if not exit 
1 if exit 


Write ( ) ((ITYPB.R.X,M.9,S,y,6, Htg), 1=1, ILAST), (V,I=1, ILAST) 
(Wg, 1=1 , ILAST) , ( ( p,P,T, Y. R) . 1=1, ILAST) 

• ITTPE identifies type of point (wall, shock. Interior, 

etc.) 

0 input point 

1 interior point 

2 wall point 

3 free boundary 

4 upstreaa shock point 

5 Prandtl**Heyer point 

6 downstream shock point 

7 slip line 

8 shock intersection point 

9 vibrational mode frozen 

10 .otational mode frozen 

11 translational oiode frozen 


• R 

• X 

• M 

• 9 

• S 

• M 

• 6 


radial coordinate (ft or m) 
axial coordinate (ft or m) 

Mach number 
flow angle (rad) 

entropy (ft^/sec^-R or m^/sec^-K) 
Mach angle (rad) 
shock angle (rad) 
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• Utg 

• V 

• Wg 

• P 

• P 

• T 

• Y 

• R 


gas total enthalpy (ft^/sec^ or m^/sec^) 
velocity (ft/ sec or a/ sec) 

mass flow between this streamline and axis (slug/sec 
or kgm/sec) 

gas density (slug/ft^ or kgm/m^) 
pressure (Ibf-ft^ or N/m^) 
temperature (R or K) 
isentropic exponent 

universal gas constant divided by molecular weight 
(ft^/sec^-R or 


DO I«l, ILAST 

Write ( ) (SPECN,1=1,NS) 


• NS number of gas species Output only for 

finite rate cases 

• SPECN species mole fractions 

Write ( ) (PO, 1=1, ILAST) 

• PO pitot total pressure Output only if 

3 line printout 
selected 1C0N(8) 


DO I = ILIM* 
Write ( ) ISP, 

• ISP 

• U 

• V 

• T 

• H 


((U,V,T,H, ), J=1,ISP),ILIMIT 

number of particle sizes at this point 
axial velocity component (ft/sec or m/sec) 
radial velocity component (ft/sec or m/sec) 
temperature (R or K) 
enthalpy (ft^/sec^ or m^/sec^) 


This record is written only for those points that have particles present. 
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• P 


particle density (slug/ft^ or kgm/m^) 


• ILIMIT 


0 not a limiting streamline 

1 is a limiting streamline 


NOTE: The flovfield data are repetitively stored on tape as indicated above 

normal surface after normal surface. When ILAST <= 0 the end of the 
data has been reached. 
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5. DESCRIPTION OF RAMP SUBROUTINES 

This section describes the subroutines of the three programs which make 
up the RAMP2 program (RAMP2F, TRAN72, and BLIHPJ). Section 3.1 discusses 
the RAHP2F subroutines. Section 5.2 presents a description of the TRAN72 
program routines and Section 5.3 gives a description of the BLIHPJ sub- 
routines. Writeups for Sections 5.2 and 5.3 were taken from Refs. 3 and 4, 
respectively. 

5.1 DESCRIPTION OF THE RAMP2F SUBROUTINK 


This subsection contains a detailed description of each routine used in 
the RAMP2F program. 


Described are: 

a Function (if applicable) of each routine 
a Calling sequence 

a Common blocks and other routines used, 
a The method used in perforsiing the routine functionsa 
For your convenience, the routines are organized alphabetically. 


NOTE: The following routines are not explained in this section as they 

comprise the two-phase transonic solution of the SPP code (Ref. 7) 
which Incorporated in the RAMP code. A complete description of 
each < . these routines is contained in Ref. 7. 


COEFS 

ORTHS 

DLTA 

PARTIL 

FIXIL 

PROP 

HALL 

TRACE 

ONED 

WDGl 
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Additionally, the follouing routines are dummy routines whose 
references have been left in the program so that the functions these 
routines performed could at some future date be put back into the code. 

BOUNDA 
CARCTR 
IRAD 
REKAT 
VMODl 


SLPLIN 

SOKINT 

SOKSOL 

VMODEL 

VM0D2 
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F UNCTION NAME ; AL6INT 
DESCRIPTION 


This routine performs a log interpolation between two values of a 
variable. 

CALLING SEQUENCE 

= ALGINT (H,R1,R2) 

where H is the Interpolation factor and R1 and R2 are the values of the 
variables between which the Interpolation is being made. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON - None 
UTILITY - None 

METHOD OF SOLUTION 

A = «n (Rl) + H * (Kn (R2) - In 81) 

ALGINT 
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FUNCTION NAME: AOASTR 

DESCRIPTION 


This function finds the Mach number corresponding to a given area ratio 
by one-dimensional theory. Real gas effects are considered in this 
calculation. 

CALLING SEQUENCE 

EM = AOASTR (0F,S,A0A,K1W1,K2W2) 

where EM is the Mach number which exists, one-dimensionally, at an area 
ratio of AOA, an entropy S, and at an 0/F ratio or total enthalpy, OF. 

UTILITY ROUTINES AND COtfliON REFERENCES 

COMMON/ STSUB/ 

ERRORS 

ITSUB 

RGVOFM 

THERMO 

UOFA 

METHOD OF SOLUTION 


The weight flow per unit area at Mach one is evaluated. An initial 
guess for the desired Mach number (depending on whether AOA is subsonic cr 
supersonic area ratio) is made and ITSUB is initialized. An iterative 
solution of the equation FOFEM = AOA - U0FA1/H0FA(EM) , driving FOFTEM to 
zero, is performed with the aid of ITSUB. 
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SUBROUTINE NAME; ARASSL 
DESCRIPTION 


This subroutine sorts a two-dimensional array containing a spatial 
description of exit plane flow properties from the axis (smallest radial 
location) to the nozzle lip (largest radial location). 

CALLING SEQUENCE 

CALL ARASSL (PFPARY) 


where PFPARY is a dummy array not used in the subroutine. 
UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/SKIPPY/ COMMON/DATAR/ 

COMMON/ SPEL/ COMMON/ PARTP2/ 

COMMON/ PARTP4 COMMON/ CONTRL/ 

COMMON/ SPECI/ 

METHOD OF SOLUTION 


The routine is entered with a spatial random distribution of points 
which specify the distribution of flow properties at the exit plane of a 
nozzle. The four arrays that contain the flow properties are: 

TEMP(M.N) IPFP(M,N,1) 

PART(M,N,1) SPEC(N,M) 

At each M point in the exit plane (up to 100 points), the M position of 
each array specifies the specific flow variable (i.e., temperature, specific 
mole fraction, particle density, etc). The points are rearranged in the 
arrays such that the first M position of each array contains the flow 
properties at the axis and the resialnlng M locations of the array contain a 
monotonically increasing (with radial location) description of the flow 
properties. 
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SUBROUTINE NAMEi AVERAGE 
DESCRIPTION 


This subroutine determines If the flow Is translatlonally frozen based 
on Knudsen number for non-continuum flow and sets the appr >priate gas total 
conditions. 

CALLING SEQUENCE 

CALL AVERAG(IS,J,N,K,ITYPE) 

where IS Is the base point streamline number on the J data surface, N is the 
streamline point on the K line for which the flow regime is to be determined 
and ITYPE Is a flag which is returned to the calling routine to Indicate the 
flow regime. 

ITYPE Flow Regime 

1 Continuum 

4 Translatlonally frozen 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/TOTAL/ 

THERMO 

COMMON/GSV/ 

EMOFV 

COMMON/GAPPA/ 

TOFV 

COMMON/ GASCON/ 

RHOFEM 

COMMON/ CX)NTRL/ 

STGMOD 

COMMON/FREE/ 

TOFEM 

COMMON/FSTAG/ 

POFEM 

COMMON/ DATAR/ 


COMMON/MOL/ 


COMMON/TEMPER/ 


COMMON/ CPMUK/ 



METHOD OF SOLUTION 


The average Knudsen number between the old streamline base point is 
calculated via the following equation: 

Kn = .788539 (M^/Rg) |jlnTi - 4nT2 | /dS 

where the properties are averaged between the old (1) and new (2) streamline 
points. The flow regime is determined by checking the calculated Knudsen 
number against the input Kundsen number for criteria translational freez- 
ing. Once the flow regime has been determined the appropriate specific heat 
ratio (gamma) and total conditions are calculated. 
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SUBROUTINE NAMEt mS 
DESCRIPTION 


This subroutine Is used by the single phase transonic module to 
calculate the flow properties at the nozzle axis. 

CALLING SEQUENCE 

CALL AXIS (I,J,K,L,PFPARY) 


where 


I point number on the data surface 

J data surface number 

K old time step Identifier (1 or 2) 

L new time step Idetnlfler (2 or 1) 

PFPART array containing flow properties for the old and new 
tlmestep for all points In the transonic computational 
domain. 

UTILITY ROUTIKES AND COMMON REFERENCES 

COMMON/DATAR/ 

IDHPHI 

PHI 

METHOD OF SOLUTION 
See Ref. 14. 
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SUBROOnNE NAMZ; BACWRD 
DESCRIPTION 


This subroutine performs the backward differencing step In the radial 
(vertical) direction In the McCormick two-’Step marching shock-capturing 
algorithm. 

CALLING SEQDENCE 

CALL BACWRD (JS,L,PFPARY, J) 


where 


JS is the species index. « 1, refers to the gas phase and 

JS 1 refers to solid particles within a particular size 
range. 

L refers to grid lines in the marching (downstream) 

direction. L ■ JK refers to the last computed line, and L 
KK refers to the line currently being computed. 

PFPARY is the array of particle properties for each point on ' ^ 
new (KK) and old (JK) line. 

J is the radial (vertical) grid point index. 

UTILTY RODTINES AND COMMON REFERENCES 

COMMON/ DFDR/ 

COMMON/EFHARY/ 

COMMON/ DATAR/ 

COMMON/ PARTP2/ 

COMMON/ PARTP4/ 

COMMON/GAPPA/ 

COMMON/ GLOBAL/ 

COMMON/TOTAL/ 

COMMON/GASCON/ 

CQMMON/CHEMXX/ 

COMMON/ FSTAG/ 

COMMON/ CONTRL/ 

CODEE 

CODEF 

METHOD OF SOLUTION 


Described in Section 5 of Volume I. 
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SUBROUTINE NAME; BLEXIT 
DESCRIPTION: 


The subroutine merges the results of the boundary layer solution at the 
exit plane with the Invlscld nozzle results In order to generate a viscous 
exit plane startline for a plume solution. 

CA LLING SEQUENCE: 

CALL BLEXIT (PFPARY) 

where 


PFPARY is an array containing particle properties. 
UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ ISTRT/ 

RGVOFM 

COMMON/ CAPUR/ 

POFEM 

COMMON/GASCON/ 

PREAD 

COMMON/ SKIPPY/ 

IDMPFP 

COMMON/GASDAT/ 

PDT 

COMMON/ CONTRL/ 

PFP 

COMMON/P ARTP2/ 

ITSUB 

COMMON/ IPMX/ 

INRSCP 

COMMON/ SPEL/ 

TOFEM 

COMMON/ CHEMCN/ 

SITER 

COMMON/DATAR/ 

IDMPDT 

C0MM0N/PARTP4/ 

UOFEM 

COMMON/ BPRESW/ 


COMMON/ GAPPA/ 


COMMON/HITWAL/ 


COMMON/ IDL/ 


COMMON/ VMIX3/ 



METHOD OF SOLUTION 


The routine merges the invlscid nozzle results and boundary layer 
solution to generate user selected exit plane start lines for restart at the 
exit plane or punches start lines for use in the Standard Plume Flowfield 
code (SPF) or Lockheed Method of Characteristics (MOC) code. The variables 
ISTART and IDLSTL are user Inputs to determine kinds of startlines to be 
generated. 
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ISTART 


Type of Startline 


0 


None 


1 

2 

3 


IDLSTL 

0 

1 


Sets up and punches a SPF 
startline 

Sets up a normal startline and 
executes a plume solution 

Sets up a normal startline and 
punches an SPF startline. 
Executes a plume restart 

Description 


Will not generate a MOC startline. 

Generates an ideal gas MOC start 
line. Prints start line. 


2 Generates an ideal gas MOC 

startline and punches startline 
and mass flow averaged total 
conditions. 


The selection of ISTART » 1 or 3 requires that lSKPY(Card 5) be greater 
than zero. In order to punch or print an MOC startline ISTART must te a 1 
or 3. 


The MOC startline that the program punches is directly usable by the 
MOC program on'v if some program modifications are made to account for the 
fact that the startline points include total enthalpy variations. Appendix 
B describes these changes. 

This routine requires data whi.:h are stored on FORTRAN Unit 12 from the 
previous nozzle solution and UNIT 2 from the BLIMPJ execution. 

The subsonic portion of the boundary layer is treated using the 
replacement layer method whereby this region is replaced with a constant 
Mach 1.01 zone that contains the same mass flow as the subsonic portion. 
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SOBROUTINE NAME; MJnUT 
DESCRIPTION: 


This block data routine initializes the Kliegel (Ref. 9) and Crone 
(Ref. 10) gas-particle drag coefficients which are used by the code. 

CALLING SEQUENCE 


None 

UTILITY ROUTINES AND COMMON REFERENCES 

COMfON/DSAGCF/ 

COmON/DRUG/ 

UTILITY - None 

IffiTHOD OF SOLUTION 


Not applicable 
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SUBROUTINE NAME; BUfPIN 
DESCRIPTION 


This routine sets up the input data that the BLIMPJ code require for 
generating the nozzle boundary layer. This routine is entered after the 
invlscid nozzle solution has been completed. The routine reads in variables 
specifying the type of boundary layer chemistry, wall boundary conditions, 
and combustion chamber species (if the thermodynamic data was read in from 
cards). The routine will also punch the BLIMPJ data if the user desires to 
execute the BLIMPJ code separately. 

UTILITY ROUTINES AND COMMON REFERENCE 


COIOION/CPMUK/ 

COMMON/ PCTC/ 

OBOIOM/KALBD/ 

COHMON/BLMDAT/ 

COMMON/CONTRL/ 

COMMON/SKIPPY/ 

COfflfON/LIPPT/ 


COtOiON/SPFK/ 

C0m0N/PARTP2/ 

a»Q10N/UALPR/ 

COMMON/ PTEN/ 

COtOfON/DATAR/ 

(XHflfON/SPEL/ 

CMIMON/GASOAT/ 


COMMON/ TRPRT/ 

IDSPEC 

IDMTOB 

TOB 

SPECIB 

WALPRP 


METHOD OF SOLUTION 
Not applicable. 
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SUBROUTINE NAME; BOOHD 
DESCRIPTION 


This subroutine finds the radial coordinate and flow angle (radians) 
for a given axial coordinate on an upper or lower solid boundary. 

CALLDK SEQUENCE 

CALL BOUND (R,X, THETA, ITYPE, KIWI, K1W2) 

where R is the radial coordinate, X is the known axial coordinate, THETA is 
the wall angle and ITTPE Indicates whether upper or lower boundary equations 
are to be used. 

UTILITY ROUTINES AND COMMON REFERENCES 

COmON/DATAR/ 

COMMON/HAFT/ 

LAGRNG 

IffiTHOD OF SOLUTION 


The coomon block region DATAR contains boundary equations or wall 
coordinates necessary to evaluate k and THETA. The two types of equations 
used are: 


r = a ( Vb + cx + dx + e ] Conic Type 1 

4 3 2 

r = ax + bx + cx + dx + e Polynomial Type 2 

When the upper or lower boundary is described by discrete points (R,X, THETA) 
subroutine LAGRNG is called to Interpolate for the R and THETA of the 
oolnt. The input fixed point variable ITYPE has a one or a two in the unit 
position which selects the upper (2) or lower (1) coefficients or points and 
control inforihation. lEC^OW contains the number of the equation to be used. 
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SUBROUTINE: CBBEAK 

DESCRIPTION 


This subroutine determines where the breakdown of continuum flow starts 
to occur. 

CALLING SEQUENCE 

CALL CBREAK (1FLG,J,K) 

where IFLG « 0 if the breakdown criteria is never executed on a normal, IFLG 
= point number on the normal where the breakdown criteria exceeds .05, J is 
the previous data surface and K is the new data surface. 

UTILITY ROUTINES AND COHMON BLOCKS 

C(»0f0N/CPHUKy 

COMMON/DATAR/ 

COMMON/FSTAG/ 

COMMON/TOTAL/ 

a»lH0N/C0NTRL/ 

THERMO 

METHOD OF SOLUTION 

Birds (Ref. 5) breakdown criteria 


p = 

pv ds 

is calculated at each point on the normal. If the breakdown parameter of 
.05 is exceeded, the code points out the location on the normal where P - 
.05. The collision frequency v is calculated using the hard sphere 
relationship. 


V 


_5 PRT 

4 y 
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SUBROUTINE NAME; CHECK 
DESCRIPTION 


This subroutine determines whether or not to add or delete streamline 
points based on user input mesh controls. 

CALLING SEQUENCE 

CALL CHECK (I,K,1S,J,IG0,IT0TK,IT0TJ,PFPARY) 

where (I,K) and IS,J) are the two points against which the program is checking 
the mesh control constraints. IGO “ -1 for checking deletion and greater than 
zero for inserting points. ITOTR and ITOTJ are the total number of points on 
the J and K normals. PFPARY is the array which contains the particle 
properties. 


UTILITY ROUTINES AND COMMON REFERENCES 


COmON/POINTC/ 
COMHON/DATAR/ 
COMMON/ GLOBAL/ 
(XR010N/PARTP4/ 
COMMON/ PARTP2/ 
COMMON/ STEPC/ 
COMMON/ CONTRL/ 
COMMON/GAPPA/ 
COMMON/FSTAG 
(XRIMON/DROP/ 
COMMON/ CHEMCN/ 


C0MM0N/VMIX4/ 

a»<MON/VMIX6/ 

COMMON/ LSAD/ 

(X»1M0N/CHEMXX/ 

C0MM0N/VM1K3/ 

CCMMON/SPCTX 

COMMON/ PFP 

II»1PFP 

GAPPBI 

VMODEL 


METHOD OF SOLUTION 


See Section 3.5.1 (Volume III) for a description of mesh control 
parameters. 
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SUBROUTINE NAME: CEEM 

DESCRIPTION 


This routine evaluates the chemical reaction-rate equations to determine 
the new chemical species concentrations. 

CALLING SEQUENCE 

CALL CHEH (DXX,RHO,U,T) 

where DXX is the distance along the gas streamline from the base noint to the 
new point 


RHO = gas density 
U = gas velocity 
T = gas temperature 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CRATER/ 

C(»!MON/RUE/ 

COMMON/CONTRL/ 

C(MMON/CHEMCN/ 

COMHON/GASDAT/ 

COMMON/CHEMXX/ 


COMMON/ CHEMYY/ 

COMMON/VXIX2/ 

COMMON/VXIX3/ 

COMMON/BLMDAT/ 

TKEY 

SLDP 


METHOD OF SOLUTION 


The reaction rate equations for the various chemical reactions are solved 
simultaneously using an implicit finite differencing scheme (Ref. 6). 
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SUBROUTINE NAME; CODEE 
DESCRIPTION 

This subroutine computes the E vector of flow properties for use in the 
McCormick two-step marching shock-capturing algorithm. The E vector consists 
of the following flow properties: 

Gas Phase 

pu 

E = Pu + p 

Puv 
PuH 

where 

P = gas density 

u = gas axial (horizontal) velocity 

V = gas radial (vertical) velocity 

p = gas radial pressure 

H == gas total enthalpy 

0 ^ » solid particle density in terms of mass of particles per unit 

volume of solld/gas mixture for ith species. 

Uj^.v^ = velocity components of solid particles for ith species 
h^ = enthalpy of solid particles for ith species. 

CALLING SEQUENCE 

CALL CODEE (JS,L,PPPARY,J,I) 


Solid Phase 


PlUi 

^“1 

PiUiVi 




where 


JS is the species index. JS ° 1 refers to the gas phase, and JS 

1 refers to solid particles within a particular size range. 
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L refers to grid lines In the marching (downstream) direction. 

L • JK refers to the last computed line, and L > KK refers to 
the line currently being computed. 

FFPARY Is the array of particle properties generated In Subroutine 
PPATPT. 

J Is the radial (vertical) grid point Index 

I Is an Index used In Identifying values used in obtaining 

finite differences. For example, I » i refers to values at 
the point J on the last computed line. I » 3 refers to values 
at J +1, depending on whether the differencing Is forward or 
backward. 1=2 refers to values being computed at J on the 
next line by solving the finite difference equations. 

UTILITY ROUTINES AND C(»1M0N REFERENCES 

C(»OK>N/EFHARY/ 

COMMON/DATAR 
COMMON/ PARTP2 
COMMON/ PARTP4 
COMMON/GAPPA 
COMMON/ GLOBAL 
COMMON/TOTAL 
COMMON/ GASCON 
COMMON/CHEMXX 
COMMON/ FSTAG 
COMMON/ CONTRL 

METHOD OF SOLUTION 

Described In Section 5 of Volume I. 
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SUBROUTINE NAME; CODBF 
DESCRIPTION 

This subroutine computes the F vector ol flow properties for use in the 
McCormick two-step marching shock-capturing algorithm. The F vector consists 
of the following flow properties: 


Gas Phase 

Solid Phase 

pv 

PiV^ 

puv 

^i “i^ 

2 ^ 

2 

pv + p 

PiV^ 

pvH 



where 

p = gas density 

u = gas axial (horizontal) velocity 

V = gas radial (vertical) velocity 

p = gas radial poressure 

H » gas total enthalpy 

p. « solid particle density in terms of mass of particles per unit 
^ voluD.'' wf solld/gas mixture for ith species. 

u.,v. = velocity components of solid particles for 1th species 
h^ ^ » enthalpy of solid particles for ith species. 

CALLING SEQUENCE 

CALL CODEF (JS.L.PFPARY, J,I) 

where 

JS is the species index. JS ~ 1 refers to the gas phase, and JS 

1 refers to solid particles within a particular size range. 

L refers to grid lines in the marching (downstream) direction. 

L » JK refers to the last computed line, and L >= KK refers to 
the line currently being computed. 

PFPARY is the array of particle properties generated in Subroutine 
PPATPT. 

J is the radial (vertical) grid point index 


5-19 

LOCKHEED-HUNTSVILLE RESEARCH & ENGINEERING CENTER 



LMSC-HREC TR D867400-II 


I is an Index used In identifying values used in obtaining 

finite differences. For example, I •> i refers to values at 
the point J on the last computed line. I > 3 refers to values 
at J + 1, depending on whether the differencing is forward or 
backward. I > 2 refers to values being computed at J on the 
next line by solving the finite difference equations. 

UTILITY ROOTINES AND COMMON REFERENCES 

COMHON/DFDR/ 

COMHON/EFHARY/ 

COMMON/ DATAR 
COMMON/ PARTP2 
COMMON/ PARTP4 
COMMON/GAPPA 
COMMON/ GLOBAL 
COMMON/TOTAL 
COMMON/ GASCON 
COMMON/CHEMXX 
COMMON/ FSTAG 
COMMON/ CONTRL 

METHOD OF SOLUTION 


Described in Section 5 of Volume I. 


5-20 


LOCKHEED-HUNTSVILLE RESEARCH & ENGINEERING CENTER 


LHSC-HREC TR D867400-1I 


SUBROUTINE NAME; CODBH 
DESCRIPTION 


This subroutine computes the H vector of flow properties for use in the 
NcCoimick two-step marching shock-cat<turing algorithm. The H vector consists 
of the following flow properties: 


where 


Gas Phapj 


ns 

E 

1=1 


^ Ai Au^ 


llb 

E 

i=l 


P A Aw 
i i 1 


ns 


- ^ P. A (B - u Au - vAv ) 
1=1 111 


Solid Phase 
0 


- P A. Au. 
1 i 


-P^Ai 


Av, 


PiAi(Bi + Au^ + Av^) 


P 


i 


u. . 

X 


V 

i 


Au 



A 

1 


solid particle density in terms of mass of solid particles 
per unit volume of solld/gas mixture for i^^ species. 

velocity components of solid particles for 1^^ species. 

u-u, V -v= velocity difference between solid particles 
^ and gas for 1*^^ species. 

defined by Eq. (3.46), Volume I. 

defined by Eq. (3.103), Volume I. 


CALLING SEQUENCE 

CALL CODEH (JS,L,PFPARY, J) 


where 

JS is the species index. JS = 1 refers to the gas phase, and JS 

1 refers to solid particles within a particular size range. 
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L refers to grid lines In the marching (downstream) direction. 

L > JK refers to the last computed llnct and L • KK refers to 
the line currently being computed. 

PFPARY is the array of particle properties for the old (JK) and new 
(KK) data surface. 

J is the radial (vertical) grid point index 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/EPHARY/ 

COMMON/DATAR 

COMMON/ PARTP2 

C0MM0N/PARTP4 

COMMON/GAPPA 

COMHOM/GLOBAL 

COMMON/ TOTAL 

COMHON/GASCON 

COMMON/CUEMXX 

COMMON/ FSTA6 

COMMON/ CONTRL 

PPATPT 

METHOD OF SOLUTION 

Described in Section 5 of Volume 1. 
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SUBROUTINE NAME; COEFEQ 
DESCRIPTION 


This subroutine calculates the coefficients Cl and CIJ for use in the 
gas-particle system compatibility equation along the gas Mach lines. Cl Is 
the gas total enthalpy term and CIJ is the particle contribution to the 
equation. 

CALLING SEQUENCE 


CALL COEFEQ (M,IPA, IP3.IPC) 


where M is equal to 1 for limiting streamlines, IPA is the b 'se point number 
for the RRC,IPB is the base point number of the LRC and IPC is the new point 
number. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/SLIPPT/ 
COMMON/DATAR/ 
COMMON/ GAPPA/ 
COMMON/ONTSPT/ 
COMMON/AVPROP/ 
COMMON/ CONTRL/ 


COMMON/ CHEMXX/ 

COMMON/CHEMCN/ 

COMMCi^/VMIXl/ 

O'-.iMON/VMIXS 

,.0MM0N/AVPRP2/ 

UTILITY - None 


METHOD OF SOLUTION 


The following finite difference relations are used to s Uve for the 
coefficients 


cosa 


Cl 


1»2 


and 


CIJ 


NP 

1 , 2 “ ^ 1,2 ^ 1 ,; 

j=l 


1,2 slna. 5 2 

* n,2 


- 


t - ^i.2> 1,2 + (“1,2 - “J,2> «^“^1,2 


®1 

■‘‘1 2 

+ ^ 


^1,2 ®1,2 j 




hL 


^ 1,2 ** 1,2 ‘^°®^ 1,2 


For a detailed description of the calculation procedure, see Volume I, Section 
4.3. 
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SOBRWTINE NAME; C(ffiPF3 
DESCRIPTION 


This subroutine calculates the new particle properties at the point under 
consideratioot and the intersection of the particle streamlines through this 
point with the J-line. 

CALLING SEQUENCE 

CALL C0EFF3(IG,IPRES(3),VERT,IS,JS,I,K,IH+1.JS,1H-1,JS,ITYPE3 
I PI , IP2 , IP3 , P3 , PG5 , PFPARY) 


where 


IC 


point identifier for intersection of particle streamlines 
with J-Iine (See Fig. 7-2t, Vol, 1). 

IPRES(3) 

- 

number of particle size gro'tps present at new point. 

VERT 

- 

1.0 for interior or upper boundary point 
O.C for lower boundary point. 

IS,JS 

- 

the streamline base point on the reference normal (J-Line). 

I.K 

- 

The point being solved for on the new normal (R-line). 

le+i.js 

- 

the first point above the (IS,JS) point on the reference 
normal (J-line). 

IH-1,JS 

- 

the first point below the (IS,JS) point on the reference 
normal (J-line). 

ITYPE3 

- 

type of point which is being solved for. 11 - interior 
point, 21 - lower boundary point, 22 - upper boundary point. 

IPl 

- 

point identifier (5) of the i itersection of the new point 
streamline with the J-line (see Fig. 4-2, Vol. I). 

II'2 

- 

point identifier (4) of the particle streamline Intersection 
with the J-line (see Fig. 4-3, Vol. I). 

IP3 

- 

point identifier (3) of the new ooint on the K-line (see 
Fig. 4-2, Vol. I). 

P3 

- 

array cont'inlng location and flow properties of the new 
point (I,K). 

PG5 

- 

array containing location and flow properties of the 
streamlin : intersection on tls J-line (IPl). 
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UTILITY RfNrriNES AND (X»(MON REFERENCES 


OnefON/CONTRL/ 

COrOfON/DATAR/ 

COMfON/TOTAL/ 

CONMON/PARTPl/ 

COMMON/GAPPA/ 

COlOfON/ONTSPT/ 

LOmON/POINTC/ 

COMMON/PARSTU/ 

COIMIN/CRITER/ 

COW(ON/PSEC/ 


COMMON/ PSLD/ 

COMMON/ XXSU/ 

COtOfON/GASCON/ 

COMMON/ CPMUR/ 

COMMON/ SLIPPT/ 

IDMPFP 

PFP 

INRSCT 

PPATPT 

GAPPBl 


METHOD OF SOLUTION 


For a detailed description of the calculation procedure, see Volume I, 
Section 7.1. 
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SUBROUTINE NAME: CORPS 

DESCRIPTION 


This subroutine ctwputes the coefficients of the least-squares 
polynomial which best approximates a weighted set of data points. 

CALLING SEQUENCE 

CALL C0EF5 ( J , C , ALPHA, BETA, KC , A, T1 , T2 , T3 , IND2 ) 
where: 

J is the number of low-order coefficients to be set 

equal to zero. 

C is the array of KC -i- 1 polynomial coefficients. 

ALPHA is the a array of KC elements. 

BETA is the 3 array of KC elements. 

KC is the degree of the polynomial for whih the coefficients are to be 

found. Also, KC + 1 is the number of elements in the arrays C, A, 
Tl, T2, and T3. KC is also the number of elements in the ALPHA and 
BETA arrays. 

A is the computed coefficient array with KC -i- 1 elements. 

Tl is an array of KC + 1 elements used for temporary storage by COEFS. 

The contents upon return from COEFS are of no significance to the 
user. 

T2 is an array of KC -i- 1 elements used for temporary storage by COEFS. 

The contents upon return from COEFS are of no significance to the 
user. 

1ND2 is an error indicator. 

“ -2, when J > KC. 

* +2, when J £ KC. 

UTILITY ROUTINES AND COltfON REFERENCES 


None. 

METHOD OF SOLUTION 

See Section 3.6.12 of Ref. 7. 
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SUBROUTINE MAME; DECODE 
DESCRIPTION 


TMs subroutine decodes the E vector of flow field properties computed 
by the McCormick two-step marching shock-capturing algorithm. 

CALLING SEQUENCE 

CALL DECODE (JS. JK,KK,PFPARY, J) 


where 


JS is the species index. JS 1 refers to the gas phase, and JS > 

1 refers to solid particles within a particular size range. 


JK is the line number for the \aet confuted line. 

KK is the line number for the lii.. cuirently being ccMsputed. 


PFPARY is the array of particle froperties for the old (JK) and new 
(KK) data surface. 


is the radial (vertical) grid point index. 


UTILITY ROUTINES AND (XRDfON REFERENCES 


COlOfON/EFHABY/ 

COmON/DATAR/ 

C0tfif0N/PARTP2/ 

C0M10N/PARTP4/ 

OmMON/GAPPA/ 

COMMON/GLOBAL/ 

ORflfON/TOTAL/ 

COmON/ GASCON/ 

COMHON/CHEMXX/ 

COMION/FSTAG/ 


COMMON/CONTBL/ 

COMMON/ IRN/ 

OOMMON/CHEQ/ 

COIOION/CPMUK/ 

THERMO 

EMOFV 

TOFEM 

UOFBl 

IWIPFP 


METHOD OF SOLUTION 


Described in Section 5 of Volume 1. 
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FUWCTION NAME; DELTAF, DELTFF* 
DESCRIPTION 


This function computes the turning angle through an oblique shock wave 
knowing the shock angle and the upstream Hach number. 

CALLING SEQUENCE 

DELTA = DELTAF (EPS,EM,K1W1,K1W2) 
or 

DELTA “ DELTFF (EPS,EM,K1W1,K1W2) 

where DELTA, the turning angle is found from the shock angle, EPS, and the 
upstream Hach number, EH. NOTE: The appropriate values of gas properties 

must be stored in coamion upon entry to this routine. 

DTILITY ROUTINES AND COMMON REFERENCES 

COtMON/GASCON/ 

HETUOO OF SOLUTION 


The oblique shock relaticnshlps are used 
through an oblique shock wave. 

I 


5 


-1 

t - tan tan e 


(; 


2 2 
M sin e 


to determine the turning angle 
\ 



\ 


DELTAF and DELTFF are the same routine but are included as two separate 
routines in the program because of overlay requirements and the need to keep 
the core size as small as possible. 
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SUBROUTINE NAME: N.TA 

DESCRIPTION 


This subroutine Is part of the two-phase transonic module. It modifies 
the gas phase transonic results along the supersonic startllne so that the 
mass flow ratlo« Cq, across this line Is the same as given by Levine (Ref . 8) 
for the nozzle throat plane. 

CALLING SEQUENCE 

Call DLTA(RUl.ZVn.Z,ZAX.RBT,VK) 


where 

RUl the radial coordinate (non-dlmenslonalized by the throat 

radius) of the starting line at the nozzle wall. 

ZWIZ the axial coordinate (non-dlmenslonalized by the throat 

radius) of the starting line at the nozzle wall. 


ZAX !:he axial coordinate (non-dlmenslonalized by the throat 

radius) of the starting line on the axis of the nozzle. 

RRT the radius of curvature (non-dlmenslonalized by the throat 

radius) of the nozzle upstream of the throat. 


Vk 



Cp„ 

K, 



)/(l + ^ * 


g 



Y - specific heat ratio 
Wp “ mass flow rate of particle 
Wg = mass flow rate of gas 
Cp^ = specific heat of particles 
Cpg = specific heat of gas 

UTILITY ROUTINES AND COMION REFERENCES 


CONMON/DELT/ 

COMHON/NAMES/ 

COMMON/UBVB/ 

PROP 
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METHOD OF SOLUTION 


A valu<i for iS obtained by numerically Integrating across the 
initial line, ti.en che flow speed is adjusted so that the integrated value 
matches the following throat value: 


Y 1 8y - 27 ^ 754Y^ - 757y + 3633 

(1 + R 2304(1 + R^) 276480(1 + R 

c c 
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FUNCTION NAME; OOTPSD 
DESCRIPTION 

This function calculates the dot product of two vectors and returns the 
result to the calling routine. 

CALLING SEQDENCE 

= D0TPRD(V1,V2) 

where VI and V2 are any two vectors. 

UTILITY ROUTINES AND COMMCMi REFERENCES 


None. 

METHOD OF SOLUTION 


Vector VI is dotted into vector V2. The resultant is a scalar returned 
as DOTPRD. 


3-31 


LOCKHEED-HUNTSVILLE RESEARCH & ENGINEERING CENTER 



LMSC-HREC TR D867400-II 


FUNCTION NAME; ORAGCP 
DESCRIPTION 


This routine determines the drag coefficient P (Cp/Cp ) as a 

function of Reynolds number. ° 

CALLING SEQUENCE 

« DRAGCP (RE) 


where 


RE is the particle Reynolds number. 

UTILITY ROUTINES AND (XafllON REFERENCES 

CCMHON/DRAGCF/ 

UTILITY - None. 

METHOD OF SOLUTION 


Cd/Cdc^ . is tabulated as a function of particle. Reynolds number 
and a linear interpolation is performed based on Reynolds number to obtain 

^D/^Dstokes * tabulation is that of Kliegel (Ref. 5). 
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FUNCTION NAME; DBAGMR 
DESCRIPTION 


This subroutine determines the local drag coefficient stokes^ 

as a functicn of particle Reynolds number and particle Mach number. 

CALLING SEQUENCE 

- DRAGMR (EM,8E) 


where 


EM is the particle Mach number 
RE is the particle Reynolds number. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/DRUG/ 

ALGINT 

METHOD OF SOLUTION 


Cd/^d S tokes presented by Crowe (Ref. 10) is tabulated as a 
function of particle Reynolds number and Mach number. A logarithmic 
interpolation is performed based on RE and EM to obtain the appropriate 
value of . 
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SUBROUTINE NAME: DRIVER 


DESCRIPTION 


DRIVER provides the highest order control for program execution. The 
Initialization and logic subroutines are called from here. Most of the 
common storage needed In the remainder of the program Is specified here. 

CALLING SEQUENCE 

CALL DRIVER (K,K1H1 ,K1W2) 

where K is a control constant indicating whether or not errors exist in the 
execution of the program. (K = 1 for a detected error, K = 0 for no 
errors.) KlUl and K1W2 ;ire flags which have various uses in the code. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ACOM/ 
COMMON/ AUX/ 
COMMON/CAPUR 
COMMON/ CHEQ/ 
COMMON/ CONTRL/ 
COMMON/ CPMUK/ 
COMMON/ CRITER/ 
COMMON/ CUTPD/ 
COMMON/DATAR/ 
COMMON/DISCOM/ 
COMMON/DRAGCF/ 
COMMON/FAB/ 
COMMON/FORCE/ 
COMMON/ FREE/ 
C(M1M0N/GAPPA/ 
COMMON/ GASCON/ 
COMMON/GASDAT/ 
COMMON/ GRINT 
COMMON/F VD/ 
COMMON/ luL/ 


COMMON/ IPMX/ 
COMMON/ ISTRT/ 
COMMON/MASSC/ 
COMMON/MOL/ 
COMMON/NSF/ 
COMMON/ OFSTAR/ 
COMMON/ONTSPT/ 
COMMON/ PARTWT/ 
COMMON/PARTP2/ 
COMMON/ PARTP4/ 
COMMON/ PBLL/ 
COMMON/ PRNV/ 
COMMON/WT/ 
COMMON/ PSLD/ 
COMMON/RSTART/ 
COMMON/ SIGNAL/ 
COMMON/SKIPPY/ 
COMMON/ 3PEL/ 
COMMON/ STEPC/ 
COMMON/TAPRIT/ 


COMMON/TEMPER/ 

COMMON/TFLAG/ 

COMMON/TPEH/ 

COMMON/TRPRT/ 

COMMON/ VAROF/ 

COMMON/VARSL/ 

COMMON/ VLIM/ 

COMMON/VSON/ 

COMMON/WAFT/ 

COMMON/WRITPT/ 

BLEXIT 

BLMPIN 

INI TP 

PBLTRC 

PHASEl 

PLUMIN 

PUNEX 

SPACET 

TRANS 


METHOD O F SOLUTION 
Not applicable. 
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SUBROUTINE NAME: OUMSTS 

DESCRIPTION 

This subroutine zeros out t'ae particle array (PPPARY) . 

CALLING SEQUENCE 

CALL DUMSYS (PFPARY) 

where PFPARY Is the array which will be used to store particle properties. 
UTILITY ROUTINES AND COMMON REFERENCES 
None. 

METHOD OF SOLUTION 
Not applicable. 
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FUNCTION NAME; KMOPP 
DESCRIPTION 


This routine computes the local Mach number as a function of local 
pressure (static) and local entropy. 

CALLING SEQUENCE 

EM = EMOFP (P,S,K1W1,K1W2) 

where EM is the resultant Mach number found from the pressure, P, and 
entropy, S. NOTE: The appropriate values of the gas properties must be 

stored in COMMON upon entry to this routine. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/TEMPER/ 

COMMON/ GASCON/ 

UTILITY - None 

method of SOLUTION 


Thermalxy perfect gas relationships are used to find the Mach number. 


M = 




2 

Y-1 
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FUNCTION NAME: EMOFV 

DESCRIPTION 


This routine finds Mach number as a function of local velocity. 

CALLING SEQUENCE 

EM = FV (V,K1W1,K1W2) 

where EM is the local Mach number fo«nd as a function of the local velocity, 
V. NOTE: The appropriate valu?e of the gas properties must be stored In 

COMMON upon entry to this routine. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/GASCON/ 

TOFV 

METHOD OF SOLUTION 


Thermally perfect gas relationships are used to find the Mach number. 
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FU; TION NAME: 8NTROP, BHTSPP* 

DESCRIPTION 

This routine utilizes the oblique shock relations to find the entropy 
rise across a shock as a function of the shock angle and the upstream Mach 
numbev . 

CALLING SEQUENCE 

SD = ENTROP (EPS, EMU, KIWI, K1M2) 

SD = ENTRPP (EPS, EMU, KIWI, K1W2) 

where SO is Che entropy rise across the shock and is a function of Che shock 
angle, EPS, and the upstream Mach number, EMU. NOTE: The appropriate 
values of the gas properties must be stored in COMMON upon entry to this 
routine. 

UTILITY ROUTINES AMD COMMON REFERENCES 

COmON/GASCON/ 

UTILITY - None 

METHOD OF SOLUTION 

The oblique shock relations are employed to find the entropy rise 
across the shock. 


+ YiUi 


* 

ENTROP and ENTRPP are the same routine but are included as two separate 
routines in the program because of overlay requirements and the need to 
keep the core requirements as small as possible. 


C-3- 
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SUBROUTIHE NAME; ERRORS 
DESCRIPTION 


ERRORS contains print nessages for varii s errors wtiicb aay occur. 
This is an open ended routine in that it cau easily be extended to handle 
oore print messages. 

CALLING SEQUENCE 

CALL ERRORS (I,K1N1,K1H2) 

where I selects the message to be printed. 

UTILITY ROUTINES AND OOtBiON REFERENCES 

CQIBfON/OONTRL/ 

UTILITY - None. 

METHOD OF S(RiniCN 


Not applicable. 
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SUBROUT IME MAME; ESBOCR.ESflOCC* 
DESCRIPTIOH 


This subroutine eaploys an iterative solution to perfom the 
equilibria shock calculations for a real or ideal gas. The teal and ideal 
gas calculations are sinilar, the difference being that an ideal gas case 
converges on the first iteration. 

CALLING SEQDHCE 

CALL CSBOCK (0F,S1,V1,CP.DELTA,S2.T2.K2H.K1U) 

CALL ESBOCC (0F,S1.T1,EP,DCLTA.S2,V2,KZV,K1H) 

where the input properties are, OF, the upstrean 0/F ratio or total 
enthalpy, SI, VI, the upstrean entropy and velocity and, EP, the shock 
angle. The subroutine returns with DELTA, the turning angle and S2,V2, the 
downstream entropy and velocity. 


UTILITY ROUTINES AMD OOMfOM REFEBEMCES 


OOMKM/COHTRL/ 

CQMttlf/GASCOli/ 

EMOFV 

THERMO 

HE^.HEKK 


POFEM 

DELTAF 

EVIROP.EMTSPP 

BBOFEM 


MBTBOD OF SOUTTIOR 


The continuity equation coupled with the equations for conservation of 
normal and tangential monentun are solved in an iterative aanner utilizing 
themochenlcal property data to satisfy the conservation of energy 
equation. This set of four equations is expressed in terms of the four 
unknown quantities: 

e a shock angle 
** turning angle 

$2 ** entropy downstream of shock 

V 2 > velocity downstream of shock 


ESHOCK and ESHOCC are the same routines but are included as two separate 
routines in the program because of overlay requirements and the need to keep 
the core requirements as small as possible. 
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SimaOUTIIIE MAKE; BDOW 
DESCBIPTIOa 


EXPOOR calcula:.es tlie flow properties of those field points near an 
expansion comer. 

CALLIMG SEQOEWCE 

CALL EXPOOR (liPM.J.K,lTOTJ,ITOTK,IPIIT,K2W.KlH,PFPART} 


where 

HPM 


maber of Praodtl-ttejrer expansion rays eaanatiqg froa the 
expansion comer 


J 


known noraal line upstreaa of the expansion comer 


K 


the nomal line under consideration downstreaa of the 
expansion corner 


ITOU s adjusted total nunber of points on the J'line, not 
including the Prandtl-Meyer expansion points HPM 

ITOnc s nunber of points on K-llne before the Prandtl-Meyer 
expansion points are added; returns to the calling 
routine with the total nunber of points on k-line 
including Prandtl-Meyer expansion points 

IPNT s Indicates if an upper («2) or lower (»!) boundary is 
beii% considered. 


PFPARY ° array containing particle properties. 


UTILITY ROUTINES AID COtMON REFEREHCES 


OOMfOH/CHEMXX/ 

OOIMOH/GLOBAL/ 

COMfON/OONTRL/ 

COMfON/MTAR/ 

GOtMOK/IMPUT/ 

OGMfON/STEPC/ 

COMfON/AUX/ 

C0MI0N/VM1X3/ 

COHNON/TBPRT/ 

COMMON/ PUT/ 


COMMON/ CAPUR/ 

CONMOH/FSTAG/ 

COttfON/GAPPA/ 

INRSCT 

MOCSOL 

SPCTX 

PPATPT 

CHECK 

VMOOEL 

ALGINT 
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MSTBOO OF SOUrnON 


Flow properties at the expaosloo corner points are known (froa 
PBANDT). Calculation starts froa one of the comer points lAlch have zero 
turning angle and proceeds toward the point with an increasing turning 
angle. Subroutine IfOCSCH. Is used to solve for the flow properties of the 
intersection of the characteristic lines froa two known points. The 
properties of the Intersection of the noraal froa the known point on the new 
line (K-line, noraal to the streaalines), with the characteristic of the 
corresponding point at the comer, are then interpolated. This point Is 
then used along with another point at the expansion comer to find another 
new point, and so forth, the last of the expansion comer points is used 
twice in the calculation to find two points on the new noraal - one on the 
characteristic line, the other on the streaaline. 

For a detailed description of the calculation procedure, see Voluae I, 
Section 7.7. 
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SUBBffllTINE MAKE: FABLB 

DESCRIPTION 


This subroutine utilizes real or ideal gas iuforaation obtained from a 
master tape or input cards to calculate properties locally in the flow. The 
maximum size of the array used by FABLE is limited to eight gas properties 
(V,R,y» To,Po,y, Pr,Cp) at 13 velocity "cuts'* for each of two entropy 
cuts and 10 O/F or total enthalpy cuts. 

CALLING SEQUENCE 

CALL TABLE (SS,W,IF) 

where SS is the local entropy, IF is the 0/F or enthalpy table of interest 
and W is the local velocity at the point of interest. 


UTILITY ROUTINES AND COMMON REFERENCES 


(XNflfON/XSICOH/ 
COMMON/ CONTBL/ 
<X»fM(»i/ GASCON/ 
COMfON/FAB/ 
COMfON/GRINT/ 
COmON/TEMPER/ 
COtfifON/CnOJK/ 
C0Ifll0N/PART2/ 


CnOfON/GASDAT/ 

COIOiON/HOL/ 

COIMON/VTRY/ 

TOFV 

POFEM 

EMOFV 

XSl 

TAB 


IffiTHOD OF S(».DTI0N 


The routine is entered with an 0/F or enthalpy table, IF, the local 
entropy, SS, and velocity, W. A test is then made to determine if the gas 
is real or ideal. If the test indicates an ideal gas, the local properties 
are set to those stored in the TABB common array. If the test indicates 
real gas, a double Interpolation scheme is utilized to locate gas properties 
between tabulated values of velocity and entropy. In the case of an entry 
beyond the range of the tables, an ideal gas extrapolation from the last 
table value is made to determine the gas properties. 
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SUBROUTINE NAME: FIXIL 


DESCRIPTION 


This subroutioe locates the wall and centerline points for the 
supersonic startline based on user input Mach numbers. 

CALLING SEQUENCE 

CALL FIXIL 

UTILITY ROUTINES AND COtfilON REFERENCES 


COtBfON/DATAR/ 

COttfON/NittlER/ 

COMfON/NAMES/ 

COHMON/RHTD/ 

OOMION/RZMAP/ 

COMfON/RZHl/ 

COtOfON/UBVB/ 

PROP 

METHOD OF SOLUTION 


Uses transonic results to establish where the startline intersects the 
nozzle wall and centerline based on user input values of Mach number. 
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FUMCTION NAME: FHBUm 

OESCRIPTIOM 


This function solves for the Newtonian Impact pressure along the plume 
boundary. The calculation is applicable for all freestream velocities 
including quiescent conditions (l.e., = 0). 

CALLING SEiyJENCE 

PjM - FNEHTN (THETA3,X,ITYPE1,K1W1,K1W2) 

where Pq( 1b the hypersonic Newtonian impact pressure at the plume 
boundary, THETA3 is the local flow angle at the boundary, X is the axial 
coordinate of the boundary point, and ITTPE indicates if an upper (»2) or 
lower (»1) boundary is being considered. 

UTILITY ROUTINES AND COMMON REFERENCES 

COmON/OATAR/ 

UTILITY - None 

METHOD OF SOLUTION 


The common block region HALLOO contains the necessary information to 
evaluate the freestream gas properties at the plume boundary point. The 
iiq>act pressure is then calculated using the following equation 


P 


P (1 + eX) 

C30 



8in^( 6- 
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SUBROUTINE NAME; FOBHRD 
DESCRIPTION 


This subroutine performs the forward differencing step in the radial 
(vertical) direction in the McCormick two-step marching shock-capturing 
algorithm. 

CALLING SEQUENCE 

CALL FORMED (JS,L,PFPARY, J) 


where 


JS is the species index. JS » refers to the gas phase and 

JS > 1 refers to solid particles within a particular size 
range. 

L refers to grid lines in the marching (downstream) 

direction. L = JK refers to the last computed line, and L » 
KK refers to the line currently being computed. 

PFPARY is the array of particle properties on the old (JK) and new 
(KK) data surface. 

J is the radial (vertical) grid point index. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/DFDR/ 

COMMON/EFHARY/ 

CCMMON/DATAR/ 

C(»1M0N/PARTP2/ 

COMMON/ PARTP4/ 

COMMON/GAPPA/ 

COMMON/ GLOBAL/ 

COMMON/TOTAL/ 

COMMON/ GASCON/ 

COMMON/ CHEMXX/ 

COMMON/FSTAG/ 

COMMON/ CONTRL/ 

CODEE 

CODEF 

METHOD OF SOLUTION 


Described in Section 5 of Volume I. 
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SUBROUTINE NAME; FRBEMC 
DESCRIPTION 


This subroutine computes flowfleld properties In the free molecular 
regime. 


CALLING SEQUENCE 

CALL FREEMC (I1,J1,K1,ITOT,IOO,IOUT,IMOD,PFPARY) 


where II Is the point number for the first free molecular point on a normal, 
J1 Is the old data surface, K1 Is the new data surface, ITOT Is the total 
number of points on the line, 100 Is the line number for which a complete 
line Is to be printed, lOUT Is the total number of lines to skip between 
complete printout and IMOD Is the number of points to shift on the old data 
surface to locate each base point streamline. PFPARY Is the array which 
contains particle properties. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 

COMMON/DATAR/ 

C0M10N/PARTP2/ 

COMMON/ PARTP4/ 

COMMON/FREE/ 

COMMON/GASCON/ 

COMMON/FSTAG/ 

COMMON/ CUTFO/ 

COMMON/STEPC/ 

COMMON/ CRITER/ 


COMMON/GIDBAL/ 

COMMON/ PRTINT/ 

BOUND 

ITARM 

INRSCT 

WTFLOF 

IDMPFP 

PFP 

OUT 

OUTBIN 


METHOD OF SOLUTION 


Once It has been determined that a point Is free molecular all 
successive calculations of the particular streamline point are made via 
FREQIC. The point properties are determined assuming that temperature, gas 
velocity, flow angle, gas constant and specific heat ratio (y) are constant 
along a streanillne. The gas density Is determined from a source flow 
calculation (l.e., conservation of mass between streamlines). 


Pi “l \ 
'^2 ^ 


where subscript 1 Is the old data surface properties and subscript 2 is the 
new data surface properties. The pressure at the new point is then 
determined from the equation of state. 
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SUBROUTINE NAME; GAPPBI 
DESCRIPTION 


This subroutine Interpolates for the gas and particle properties 
between two known data points. 

CALLING SEQUENCE 

CALL GAPPBI (I8,JU,I9,KU,JB,M,ISKIPG,PG,FACT0R,M1,PFRARY) 

where 18 Is the base point number, JU is the base point line number, 19 Is 
the second point number, KU Is the second point line number, JP is the 
temporary location in the IPFP array to store the Interpolated data, M is 
the number of particles present, ISKIPG is a flag used to determine what 
arrays to use to do the interpolation, PG is the array in which the 
interpolated point properties are stored, FACTOR is the interpolation 
factor, and Ml » 0 gas only. Ml = 1 particles present. PFPARY is the array 
which contains particle properties. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/TFLAG/ 

COMMON/VAROF/ 

COMMON/DATAR/ 

COMMON/DRAGCF/ 

COMMON/ PARTP4/ 

OOMMON/PCTC/ 

C0MM0N/PARTP2/ 

COMMON/ VISEX/ 

COMMON/GAPPA/ 

ALGINT 

COMMON/ GASCON/ 

PFP 

COMMON/ POINTC/ 

THERMO 

COMMON/ CPMUK/ 

UOFV 

COMMON/ CONTRL/ 

TOFV 

COMMON/FSTAG/ 

EMOFV 

COMMON/TEMPER/ 

POFEM 

COMMON/ CRITER/ 

TEMTAB 

COMMON/ PSLD/ 

DRAGMR 

COMMON/ XXSH/ 

DRAGCP 

COMMON/ CAPUR/ 



METHOD OF SOLUTION 


The routine performs a linear Interpolation between the properties of 
two known points and stores the results in temporary arrays which are used 
in other parts of the program during the calculation. ISKIPG is a flag 
which tells GAPPBI which arrays to use for the interpolation and whether or 
not to interpolate on particle properties. 
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SUBROUTINE NAME; GAS 
DESCRIPTION 


This subroutine looks up gas properties from the BLIMPJ boundary layer 
results. The gas properties which are determined are used by the routines 
which trace particle properties through the boundary layer. 

CALLING SEQUENCE 

CALL GAS (X,Y,PFPARY) 

where X and Y are the coordinates in the nozzle where boundary layer 
properties are to be determined. PFPARY is the array which contains the 
spatial variation of boundary layer properties in the nozzle. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ TRCDAT/ 

COMMON/ CHOCK/ 

COMMON/ SAVE/ 

PRO 

METHOD OF SOLUTION 


A linear interpolation is performed between stations based on the axial 
location (X) and the non-dimensional boundary layer thickness (Rjj-R)/(R^ 

- Rql)) where R}] is the nozzle wall radial coordinate at X and Rg^ is 
the location of the boundary layer edge at X. 
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SUBROUTINE NAME; GASRD 
DESCRIPTION 


This subroutine reads In Che gas properties. These properties may be 
real or Ideal and read In via cards or tape. The routine also converts 
Input gas properties from MKS units to English (ENG) units If necessary. 

CALLING SEQUENCE 

CALL GASRD (IPAR) 


where IPAR Is a 1 for two-phase flow and a zero for gas-only flow. 
UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ XSICOM/ 
COMMON/ CONTRL/ 
COMMON/ INTCR/ 
COMMON/ GASCON/ 
COMMON/ GASDAT/ 
COMMON/MOL/ 
COMMON/FSTAG/ 
COMMON/OATAR/ 
COMMON/VAROF/ 


COMMON/HUL/ 

COMMON/TRPRT/ 

COMMON/ VLIM/ 

COMMON/ EXPNN/ 

COMMON/OFSTAR/ 

COMMON /CHEQ/ 

ITAPE 

IDMTB 

TAB 


METHOD OF SOLUTION 


The gas name, ALPUA(I), type units, number of 0/F tables and number of 
entropy cuts are read In from an input card. If the gas properties are on 
cards, this subroutine reads the cards. If the gas properties are on tape, 
control of the reading of properties is given to GASTAP. In either case, 
the properties are converted from MKS to English (ENG) units by this 
subroutine if necessary. 
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S UBROUTIHE NAME; GASTAP 
DESCRIPTION 


GASTAP reads the real gas properties from the thermochemical data tape 
generated by the modified TP^N72 computer program and writes these same data 
on a flowfield tape for communication with other programs. 

CALLING SEQUENCE 


CALL GASTAP 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ GASDAT/ 

OXfilON/CONTRL/ 

COMMON/DATAR/ 

COMMON/HEAD/ 

COMMON/PARTP2/ 

a»Q10N/CUEMCN/ 

COMMON/ PCTC/ 

C(»1MON/XXSH/ 

COMfON/BPRESW/ 


COMMON/TAPRIT/ 

C(»lMON/SI(aiB/ 

COMMON/ VSON/ 

O»lM0N/SKIPPY/ 

COKiON/HUL/ 

C(»fMON/OFSTAR/ 

IDMTAB 

ERRORS 

IMPUT 


METHOD OF SOLUTION 


The gas name, ALPHA(I), specified on the input data is compared with 
available cases on the TRAN72 thermochemical data tape until a match is 
found. This particular case is then read, stored in core, arranged in a 
form such that automatic transmission of data to other programs is possible, 
and then written on the RAIiP flowfield tape. 
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SUBROUTINE NAME; HALT. 
DESCRIPTION 


The subroutine establishes gas flow properties at any given point In 
the transonic region using the method of Hall (Ref. 11) as corrected and 
modified by Kllegel and Levine (Ref. 8). 

CALLING SEQUE NCE 

CALL HALL (IORDER,RR,ZZ,RRT,VK,XMACH,TUETA,ZERO; 


where 


lORDER the order of approximation, 1, 2 or 3. 3 Is default. 

RR radial position In transonic region 

ZZ axial portion In transonic region 

RRT upstream wall radius of curvature 

VK q, spe;:iflc heat ratio 

fXHACU Mach n’lraber at RR.ZZ 

THETA flow angle at RR,ZZ 

ZERO 0 for first entry 

1 for subsequent entries 

U TILITY ROUTINES AND CCTIMON REFERENCES 

C(»1H0N/DBUG/ 

CCliMON/DELT/ 

COMMON/DBVB/ 

DESCRIPTION 


A blvariant Interpolation scheme Is used to match the two-dimensional 
results with one dimensional conditions at the nozzle inlet. See Section 
5.6.33 of Ref. 7 for more detail. 
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SUBROUTINE NAME: BTPra 


DESCRIPTION 


This subroutine calculates the balanced pressure at a comer point 
(l.e., at the intersection of a solid boundary and the pressure botuulary). 
The pressure balance xs deterained for either the overexpanded or 
underexpanded case with inpact or anbiect freestreaa pressure. 

CALLING SEQUENCE 

CALL HYPER (PB,l,K,ITYPEl,KlUl,KlH2,PFPARf) 

where PB is the boundary pressure. I,K locates the boundary point, and 
ITYPEl Indicates if an upper (^ 2 ) or lower (»1) boundary is being 
considered. PFPART is the array which contains particle properties. 

UTILITY ROUTINES AND COMfON REFERENCES 


COlflfON/GASCON/ 

EMOFV 

COmON/CONTRL/ 

FNEHTN 

COMWN/DATAR/ 

OVEREX 

COfflfON/FCTC/ 

ITSUB 

COMHON/FSTAG/ 

THETPM 

COfffON/EXPER/ 

TOFH 

THERMO 

PAFH 

POFEM 

ERRORS 


METHOD OF SOLimON 


The boundary pressure (nay be inpact or aabient) is conpared irith the 
static pressure at the corner point. Depending on whether the conparison 
indicates the flow is overexpanded or underexpanded, a branch is made to 
OVEREX or THETm. In either of these routines an iterative process balances 
the boundary pressure with the flowfield pressure at the boundary. 
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FUMCTIOM MAKE; UODH) 

0ESCRIP7IOM 

Tbe fuitctloa detemioes which boundary equation the prograa should be 
using to solve tbe boundary point. 

CALLIMG SEQUEMCE 

IBQNOU(J) • IBOUIiD(X,J) 

where X is the axial coordinate and J is a 1 for a lower b>undary and a 2 
for an upper boundary. 

UTILITY ROUTIMES AMD OCWiMOil REFEKEMCES 

COMWM/OONTRL/ 

OMfON/OATAR/ 

METHOD OF SOLUTION 


Not applicable. 
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FUMCTIOM NAME; UMPDT 
DESCRIPTIOM 

This function coaputes the storage location in the PDAT array of the 
particle properties in the boundary layer. 

CALLING SEQOEIICE 

= 10MPDT(1,J,K,L) 

where 1,J,K,L are indices used to detemine the storage location. 

UTILITY ROOTIES AMD OOIMOM REFERENCES 
None. 

METBOD OF SOLUTIOH 

lONPDT = I + 10 * (J-1 + 7 * (K-1 + 10 * (L-1))). 
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FUMCTIOM NAME; UMPFP 

oEscamoN 


This function coaputes the particle storage location within the PFPARY 
array. 

CALLING SEQOEIICE 


= IDMPFP (I,J,K,L> 

where I,J,K,L are inJices used to detemine ::he storage location. 
UTILITT ROUTINES AND OOMfOM REFERENCES 


COMfON/PARTPl/ 

COMION/PARTP2/ 

COiefON/PARTP3/ 

RHD 

METHOD OF SOLUTION 


The particle storage location is ccMaputed using the followii^ relation 
imPFP = I + 5 * (J-1 + 10 * (K-1 + 100 * (L-D) 
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FUMCTIOM NAME; lOIPBI 
DESCRIPTIOM 

This function calculates the storage location in the PFPASY array of 
the location and flow properties of the grid points in the single ^lase 
transonic solution. 

CALLING SEQUENCE 

- IDHPHI (I,J,K,L) 

where 1,J,R,L are Indices used to deteniine the storage location. 

UTILITY ROnriMES AND OOtWOM REFERENCES 
None. 

METHOD OF SOLUTION 

lONPHI = I + 12 * (J-1 -K 15 * (K-1 + 27 * (L-1))). 
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FUHCTION NAME; lOMPOP 
DESCRIPTION 


This functioa calculates the storage location in the PPPART array of 
the specie sole fractions for the equilibritm or equilibriua/frozen 
thermodynamic data which were generated by the TBAM72 for use in the RAMP 
solution. 

CALLIMG SEQDENCE 

= IDMPOP(I,J,K,L) 

where I, J,K,L are indices used to determine the storage location. 

UTILITY SOUTINES AND COHMON REFERENCES 


None. 

METHOD OF SOLUTION 

IWIPHI = I + 10 -»• (J-1 + 2 * (K-1 + 25 * (L-1))) 
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FUMCTION NAME: IMPBO 

DESCRIPTION 

This function calculates the storage location in the PFPARY array of 
the boundary layer properties which are used to trace particles through the 
BLIHPJ boundary layer results. 

CALLING SEQUENCE 

= IDHPR0(1,J,K) 

where I>J,K are indices used to determine the storage location. 

UTILITY ROCTINES AND (XttlMON REFERENCES 
None. 

METHOD OF SOLUTION 

IDMPRO = I + 14 * (J-1 + 15 * (K-D) 
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FUNCTION NAME; lOHTAB 
DESCRIPTION 

This function computes the gas property storage location within the 
TABB array. 

CALLING SEQUENCE 

= IDMTAB (I,J,K,L) 

where I,J,K,L are Indices used to determine the storage location. 

UTILITY ROUTINES AND OBIHON REFERENCES 


None. 

METHOD OF SOLUTION 


The gas property storage location, is computed using the following 
relation 

1I»ITAB = 1 + 10 * (J-1 + 2 * (K-1 + 13 * (L-1))) 
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FUNCTION NAME: miXSl 

DESCRIPTION 

This function computes the gas Interpolacion parameter storage location 
within the XSIDIM array. 

CALLIIW; SEQUENCE 

= IDMXSI (I,J,K,L) 

where I,J,K,L are indices used to determine the storage location. 

UTILITY ROUTINES AND COMMON REFERENCES 
None. 

METHOD OF SOLUTION 

The gas interpolation parameter storage location is computed using the 
following relation 

IDMXSI = I + 10 * (J-1 + 2 * (K-1 + 13 * (L-1))). 
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SUBROUTINE NAME; IDTAPE 
DESCRIPTION 


This subroutine writes the gas properties which were input via cards on 
the flowfleld program tape. The format ised to write them on tape is 
compatible with that used for a real gas. 


CALLING SEQUENCE 

CALL IDTAPE (UNITS, K1W1,K1W2) 

where UNITS indicates whether the gas properties are being read in with 
English (ENG) or MRS units. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ XXSH/ 
COMMON/TAPRIT/ 
COMMON/ CONTRL/ 
COMMON/HEAD/ 
COMMON/ SVDT/ 


COMMON/ BPRESW/ 
COMMON/PARTP2/ 
COMMON/ GASDAT/ 
COMMON/TRPRT/ 
TAB 


METHOD OF SOLUTION 


When gas properties are read in from cards the data are converted to MRS 
units and then written on the flowfleld tape (Unit 3). 
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FUNCTION NAME; IDSPEC 
DESCRIPTION 


This function calculates the storage location of the species mole 
fractions for the equilibrium or equilibrium/frozen thermodynamic results 
which are used to determine the species mole fraction which will be used In 
the BLIMPJ boundary layer solution. 

CALLING SEQUENCE 

= IDSPEC (I,J,K,L) 

where I,J,K,L are Indices used to determine the storage location. 

UTILITY ROUTINES AND COMMON REFERENCE 


None. 

METHOD OF SOLUTION 

IDSPEC = I + 2 * (J-1 + 2 * (K-1 + 13 * (L-))). 
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SUBROUTINE NAME; IMPDT 
DESCRIPTION 


This routine reads the input cards or tape for the chemistry package. 

The reaction rate equations, rate constants, and startline species 
concentrations are re&d in or determined from the TRAN72 data tape and the 
appropriate conversions, if any, are performed. Tables of enthalpy, entropy, 
and specific heals for each species are also input. 


CALLING SEQUENCE 


CALL IKPUT (IDATA) 


where IDATA specifies the proper index of the array being input from a CEC 
data tape from which species concentrations are being extracted. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 
COMMON/ CHEMCN/ 
COMMON/ DATAR/ 
COMMON/GASDAT/ 
COMMON/ CHEMXX/ 
COMMON/ CPMUK/ 
COMMON/ VISEX/ 
COMMON/ PCTC/ 


COMMON/ GASCON/ 

COMMON/VARSL/ 

COMMON/ TAPRIT/ 

COMMON/SPEL/ 

COMMON/TRPRT/ 

COMMON/ 3IGMB/ 

SPECTX 


METHOD OF SOLUTION 


The routine reads species thermodynamic data and constructs a Gibbs free 
energy array to replace the entropy array. The reaction rate constant data, 
reactions, and third body data are input and stored. Finally, the start.' -oe 
species concentrations are input via cards or tape and converted to mole/mass 
ratios. 
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SUBROUTINE NAME; IMITP 
DESCRIPTION 


This subroutine Initializes the values of various control parameters, 
thereby providing for proper operation of the program. These Initial values 
Include: 


1. The counter for the upper and lower boundary equations, 

2. The counter for the first characteristic line, 

3. The initial number of degrees per Prandl-Meyer ray, 

4. Convergence criteria, and 

5. Maximum number of iterations. 

CALLING SEQUENCE 

CALL INITP (K1W1,IQW2) 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ CONTROL/ 

OMION/CRITER/ 

COMMON/DATAR/ 

OMION/DISCOM/ 

COmON/HEAD/ 

OMIMON/STEPC/ 

UTILITY - None 

METHOD OF SOLUTION 


Not applicable. 
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SUBROUTINE NAME: INRSCT, IMRSCP* 

DESCRIPTION 

INRSCT finds the intersection of two straight lines. 
CALLING SEQUENCE 

CALL INRSCT (T1,T2,T3,T4,T5,T6,R3,X3,K1W1,K1H2), 


or 


CALL INRSCP (Tl,T2,T3,T4,T5,T6,R3,X3,KiWl,KlW2) 

where T1,T2,T3 and T4,T3,T6 define the equations of the two straight lines 
which intersect at R3,X3. 

UTILITY ROUTINES AND COIOfON REFERENCES 


(X»1M0N - None 
ERRORS 

METHOD OF SOLUTION 


The equations of the straight lines are written 

r = tanT3 (x - T2) + T1 

and 

X = cotT6 (r - T4) + T5 

These equations are solved for x, but a test on the slopes is made to prevent 
indeterminate forms. If an indeterminate form is possible, the points are 
mapped one onto another, thus precluding the possibility of indeterminancy 
except when the lines are parallel. 

Jk 

INRSCT and INRSCP are the same routine but are incliuled as two separate 
routines in the program because of overlay requirements and the need to keep 
the core requirements as small as possible. 
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SUBROUTINE hAME; URB^ 

DESCRIPTION 

Tills subroutine calculates the incremental force and energy between two 
adjacent points in the flow field. 

CALLING SEQUENCE 

CALL INTEGR (DELX.DELY,TUTBR,R,DA,V, 

RHO , P , X , 1 , K , FXP , F YP , TRP , FXG , FTG , TRG , 

AX02D.ENU,EG,BP,EM,IW.PFPARY) 

where 


DELX 

DELY 

THTBR * 
R 

DA 

V 

RHO » 
P 
X 
1 
X 

FXr 

FYP 

TRP 

FXG 

FYG 

TRG 

AX02D ^ 
ENU 

EG 

EP 

EM 

DM 

PFRARY - 


difference in axial position between the two points 

difference in radial position between the two points 

averge flow angle of the two points 

average radial position of tte two points 

absolute distance between the tw^> points 

average gas velocity of the two points 

average gas density of the two points 

average gas pressure of the two points 

average axial position of the two points 

point number of the base point 

line number of the base point 

incremental force in axial direction due to the particle 
momentum 

incremental force in radial direction due to the particle 
momentum 

incremental torque due to particle momentum 

incremental force xn axial direction due tc gas 

incremental force in radial direction due to gas 

incremental rorque due to gas axial and radial forces 

geometric term for axisymmetric or 2-D flow 

angle the line connecting the two points has referenced to 

horizontal 

incremental gas ene.gy 
Incremental particle energy 

sum of incremental particle and gas energy (i.e., mixture) 
incremental gas mass flow between the two points 
array containing particle properties 
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UTILITY ROUTINES AND COMMON REFERENCE 


COMMON/ CONTRL/ 

COMMON/ PARTP4/ 

CGMK)N/PARTP2/ 

a»lNON/DATAR/ 

COMfON/FSTAG/ 

COtOfON/INICR/ 

PFP 

VENAG 

METHOD OF SOLUTION 


This subroutiae calculates the aass flow, energy, aoaentua, and thrust 
produced by the particles and gas containea in each streamtube bounded by two 
streamline points on a normal. The resulting values are integrated along each 
normal and cmapared to the initial data surface to determine how well the 
solution is conserving the conservation equations. 
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StreROUTlNS NAME; UflBRP 
DESCRIPTION 


This routine performs a linear interpolation for particle properties at a 
given axial location in the nozzle. 

CALLING SEQUENCE 

CALL INTER? (I, J,K,L,IPOINT,X,PFPAP.Y) 

where (1,R) and (L,J) are the streamline points on two consecutive normals 
that bracket the axial position (X) at which particle properties are 
required. IPOINT is a dummy variable tha^: is no longer used. PFPART is the 
array which contains the particle properties. 

UTILITY ROUTINES AND COHMOS REFERENCES 

Cm.DS/DAT/ 

COM40N/STATN/ 

METHOD OF SOLUTION 


The |»article properties and location on streamline at a specified axial 
station (X) are determined using a linear interpolation using the stremnline 
points (1,K) aud (L,J) which bracket X. The particle properties are 
detend.ned from the PFRARY array. This routine is used to help determine the 
particle properties at the boundary layer edge after the nozzle solution and 
boundary layer solution have been performed. 
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FUMCTION NAME; ITBBM, ITARI^ 
DESCRIPTION 


ITERM tests each normal lower wall point to determine if it is within the 
predefined problem limits. If the point falls outside the limits, the case is 
terminated. 

CALLING SEQUENCE 

FUNCTION = ITERM (IP,K,K1W1,K1W2) 

FUNCTION = ITARM (IP,K,K1W1,K1W2) 

where IP Identifies the characteristic point on the new K line. 

UTILITY ROUTINES AND CCTfliON REFERENCES 

COMMON/ CUTFO/ 

COMMON/DATAR/ 

UTILITY - None 

METHOD OF SOLUTION 


The a.ngular orientation of a line drawn from the upper or lower cutoff 
coordinates to the characteristic point is determined. One can determine if 
the point is Inside or outside the problem limits by comparing this angle to 
the angle of the upper or lower cutoff line. 


ITERM and ITARM are the same routines but are included as two separate 
routines in the program because of overlay requirements and the need to 
keep the core requirements as small as possible. 
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SUBROUTINE NAME: ITSUB 

DESCRIPTION 


This subroutine controls the Iterative solution of any set of equations 
which can ultimately be expressed as a function of one variable; it can also 
be used to control an integration loop. 

CALLING SEQUENCE 

CALL ITSUB (FOFY.Y, SAVE, CONV.NTIMES, KIWI, K1W2) 


where 


FOFY is the function of Y which is driven to zero 
Y is the variable which is Iteratively solved for 

SAVE is the program control array, i.e., SAVE(l) is a control counter, 

SAVE(2) is the Y increment 

CONV is the convergence criteria for FOFY 

NTIMES » maximum number of iterations to be performed 

UTILITY ROUTINES AND COMMON REFERENCES 


None. 

METHOD OF SOLUTION 


ITSUB modifies Y in the proper direction by the increment value SAVE(2) 
until the root has been bracketed. The method of false position is then used 
to modify Y until the solution is reached. Immediately after entering ITSUB 
each time, the function is Inspected for convergence. If the function has 
converged, a program control is set, and computer control is transferred to 
the calling routine. 
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SUBROUTINE NAME; RIKOFF 
DESCRIPTION 

This subroutine terminates the use if an error in the calculation is 
encountered . 

CALLING SEQUENCE 

CALL KIKOFF (K1W1,K2U2) 

UTILITY ROUTINES AND (XMION REFERENCES 

COMMON/ CONTRL/ 

UTILITY - None 

METHOD OF SOLUTION 

Not applicable. 
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SUBROUTINE NAME; LAGRNG 
DESCRIPTION 


This subroutine determines the radial location and flow angle for solid 
boundaries which are input as tables of R,X, and flow angle. 

CALLING SEQUENCE 

CALL LAGRNG (IER,ID,ARG,R,THETA,ITYPE) 


where 

lER is an error flag, ID is a table location, 

ARG is the axial value for which the radial coordinate, R, of the wall 
and flow angle, THETA, at the wall are desired, 

ITYPE Indicates if an upper (°=2) or lower (=1) boundary is being 
considered . 

UTILITY ROUTINES AND COMMON REFERENCES 

COHMON/DATAR/ 

COMMON/ CONTRL/ 

COMMON/WAFT/ 

UTILITY - None 

METHOD OF SOLUTION 


The routine uses the Lagrange interpolation formula to solve for R and 
flow angle as a function of axial position, X, from a set of tabular points 
describing a solid boundary. The routine uses the two closest points to the 
desired X to solve the interpolation formula. In the vicinity of large 
nonlinear variations in R and flow angle the points should be placed close 
together. 
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SUBROUTINE NAME; LIMITS 
DESCRIPTION 


This subroutine tests the new boundary point to determine If It Is within 
the limits of the current boundary equation. Depending on the test, the 
options are: 

1. Use the current boundary equation, 

2. Advance to the next boundary equation, or 

3. The current equation is the last one specified. 

CALLING SEQUENCE 

CALL LIMITS (I,K, ITYPE, I0K,K1W1,K1W2) 
where I,K represents the location of the boundary point In the PUO array, 

ITYPE Indicates If an upper or lower boundary Is being considered, and lOK is 
a contro.' indicating if option 1, 2 or 3 is to be used. 

UTILITY RO L’TI : 1ES AND COMMON REFERENCES 

COMMON/ CONTRL/ 

COMMON/DATAR/ 

BOUND 

METHOD OF SOLUTION 

The radius, RMAX, and boundary angle, THETAMAX, at the limiting axial 
value XMAX Is calculated in BOUND. RMAX or XMAX is compared with R or X for 
the point in question. The results of the comparison determine which of 
options 1, 2, or 3 Is to be used. 
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SUBROUTINE NAME: LIPIN 

DESCRIPTION 


LIPIN calculates inforaatlon for the starting line points when the 
simplified straight start line option is used (i.e., when ICON(2))t2). 

CALLING SEQUENCE 

CALL LIPIN (C00R,S,INT0T,DELM,K1W1,K1W2) 

where COOR Is the starting line information array, S is the entropy level of 
the start line; INTOT is the total number of input points specified (50 max), 
DELM is Mach number gradient along the startline, and KIWI is a flag which 
determines the type of start line point distribution. 

UTILITY ROUTINES AND COM^>GN REFERENCES 

COMMON/ INPUT/ 

COMMON/ CONTOL/ 

COMMON/PCTC/ 

COMMON/FSTAG/ 

COMMON/GASCON/ 

COMMON/ GASDAT/ 

RGVOFM 

UOFV 

THERMO 

METHOD OF SOLUTION 


The startline input data are divided into the specified number of 
increments. Radial gradients in Mach number, X and 6 , are calculated. 

KIWI 0 The start line points are evenly spaced 

KIWI 1 The startline points are concentrated near the upper 

boundary . 
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PROGRAM NAME; HAIK 
DESCRIPTION 

This Is the main program which initiates the overall program solution. 
CALLING SEQUENCE 
None. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ PARTPl/ 

DUMSYS 

DRIVER 

METHOD OF SOLUTION 
Not applicable. 
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SUBROUTINE NAME; MASCON 
DESCRIPTION 

MASCON calculates the Mach number distribution at an area downstream of 
the throat such that total mass flow is conserved. Mass flow, calculated at 
the throat, is used as the constant for comparison. 

CALLING SEQUENCE 

CALL MASCON (E,SE,DELM,K1U1,K1W2) 

where E is the input line array CORLIP, SE is the Input line entropy level, 
and DELM is the Mach number gradient along the scartline. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ CONTRL/ 

RGVOFM 

ERRORS 

EMOFV 

ITSUB 

RHOFEM 

METHOD OF SOLUTION 


The mass flow rate the throat, m*, is calculated. This m* Is 
compared with that at the input line location for an initial Mach number 
distribution. The Mach number distribution is then perturbed until mass flow 
is conserved. 
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SUBROUTINE NAME; MASS 
DESCRIPTION 


The routine is used by the single phase transonic module to calculate the 
mass flow and momentum at each solution station. 

CALLING SEQUENCE 

CALL MASS (WDOT,PDOT,JN,KN,PFPARY) 

where WDOT and PDOT are the mass flow and momentum at the JN station at the 
new timestep KN. PFPARY is the array containing all the flow properties at 
the old and new time step for all points in the transonic flow domain. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ DATAR/ 

COMMON/ SPEL/ 

PHI 

THERMT 

METHOD OF SOLUTION 


The mass and momentum fluxes are Integrated starting at the wall point 
and proceeding to the axis at each station at a given time. 
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SUBROUTpjE NAME; MASSCR 
DESCRIPTION 


This subroutine keeps a running check on the oass flow. Mass flow at the 
starting line is calculated and compared with that crossing each normal line 
downstream. 


CALLING SEQUENCE 


CALL MASSCK (ILAST, ISTART,K,K1W1,K1W2,PFPARY) 


where ILAST is the last point on the normal line, ISTART is a number of the 
first point on the normal and K represents the normal line under 
consideration. PFPARY is the array containing the particle properties. 

UTILITY ROUTINES AND COmCa REFERENCES 


COMMON/DATAR/ 

COftfON/MASSC/ 

COMMON/PSLD/ 

COItfON/CONTRL/ 

COMMON/NSF/ 

COMMON/STEPC/ 

COIfliON/SIGNAL/ 

COMON/MASOUT/ 

COMMON/TRPRT/ 


COMMON/FORCE/ 

OMiHON/WT/ 

COHHON/FARTP4/ 

C(»fM0N/PART2/ 

COMMON/ INTCR/ 

a»{MON/PSTAG/ 

INTEfK 

PFP 

IDMPFP 


METIK)D OF SC UTION 


The mass flow through the startline is calculated and stored. Mass flow 
through lines downstream is calculated and these values compared with the 
initial value. A percent change in mass flow is printed for each normal 
line. The total mass flow passing under each point on a characteristic line 
is scored so the mass flow can be written on the output tape to permit 
streamline tracing. 
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SUBROUTINE NAME; MAXI 
DESCRIPTION 


This routine finds Che smallest time step that must be taken to maintain 
stability during the single phase transonic solution. 

CALLING SEQUENCE 

CAKK HAXT(DTCK) 

where DTCK is the smallest time step which is found in the array which 
contains the maximum stable time step at all points in the solution domain. 

UTILITY ROUTINES AMD COmON REFERENCES 

COMMON/DATAR/ 

METHOD OF SOLUTION 


The smallest time step over all the solution points is located and 
returned to the calling routine. 
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SOBBOTTINE HAKE; MCCBtK 
DESCRIPTION 


This subroutine perfonas the McCoraick tuo~8tep oarchlng shock-capturing 
algoritha. la perforalng this algorithm, calls are made to subroutines CODEE, 
COKF and CODER to code the E, F and H vectors of fiowfield properties. The 
forward and backward finite differences in the radial (vertical) direction and 
performed hy calls to subroutines FORURD and RACHRD. And finally, the 
fiowfield properties as computed by the finite difference equations are 
obtained by decoding the "next-line'* E vector by making a call to subroutine 
DECODE. 

CALLING SEQDEMCE 

CALL MCCRMR (JK.KK.PFPART) 


where 

JK is the line number for the last computed line. 

KK Is the line number for the line currently being computed. 

PFPART is the array of particle properties for the new (KK) and old (JK) 
data surface. 


UTILITY ROUTINES AND COWION REFERENCES 


COMMON/ EFHARY 

COIMON/DATAR/ 

COHMON/PARTP2/ 

C0HH0N/PARTP4/ 

COMMON/GAPPA/ 

COmOK/GLOBAL/ 

COMMON/ TOTAL/ 

COnON/GASCON/ 

COMMON/ CHEMXX/ 


COWfON/FSTAG/ 

CnOfON/CONTRL/ 

CCMMON/IRN/ 

CODEE 

CODER 

FORNRD 

BACWRD 

DECODE 


METHOD OF SOLUTION 


Described in Section 5 of Volume I. 
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SUBROUTINE NAME; MESH 
DESCRIPTION 


This routine calculates the naxisua initial step size that can be taken 
following a restart at the exit plane using a startline which contains a 
boundary layer. 

CALLING SEQUENCE 

IPNFD = HESH(L) 

where L is the total nuaber of points on the start line and IPNFD is the point 
nuBber on the startline (starting froa the axis) where the Mach nuaber is less 
than 2.0. 

UTILITY ROUTINES AND COtglON REFERENCES 

COmON/DATAR/ 

COMfON/STEPC/ 

TH^O 

QfOFV 

METHOD OF SOLUTION 


This routine finds the first point away froa the nozzle lip where the 
Mach nuaber is less than and closest to Mach 2.0. The aaxiaua stop size is 
then taken to be the distance froa this point to the lip. A Mach maber of 2 
was chosen so that a reasonable initial step size can be taken while 
maintaining numerical accuracy. 
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SUBROUTINE NiME: MOCSOL 


DESCRIPTION 


This subroucloe solves the characteristic equations for gas only i.ow in 
the region around and downs treaa of an expansion comer. 

CALLING SEQUENCE 

CALL MOCSOL (IN,KM,IN1,KN1,IN2,KN2,IFLAG,ITYPZ.K1W1,K1U2,PFPARY) 

where IN, KM identifies the storage location for the new point to be conputed, 
IM1,KN1 identifies t'le right running known point, and IN2,KN2 identifies the 
left running known point. IFLAG is an error indicator and ITYPE selects the 
type calculation. PFPARY is the array containing the particle properties. 


UTILITY ROUTINES AND 

CGHHOM REFERENCES 



C0IM0N/PARTP4/ 

COmON/STEPC/ 

Ca«ON/CHQa4/ 

BOUND 

C0m0N/PARTP2/ 

(XHflfOM/CFMUK/ 

C0IM0N/VXIX3/ 

ROTERM 

OMffDN/GAPPA/ 

COmON/PCTC/ 

C0EFF3 

VOFEM 

COMMOM/ONTSK*/ 

COmON/CONTRL/ 

INRSCT 

RGMOFP 

COMION/AVPROP/ 

COmOM/CRITER/ 

POFQt 

FNEtfTN 

OOIOION/SLIPPT/ 

COIOfON/DATAR/ 

(X>EFEQ 

NEUENT 

COMfON/GLOBt^/ 

COIMON/GASCON/ 

PPATPT 

ERRORS 

COMMON/FSTAG/ 

COttfON/POINTC/ 

PFP 

SPCTX 

COMHON/FREE/ 

COWfON/VISEX/ 

IDMPFP 

VMODEL 

ALGINT 

THERMl 


ICTHOD OF SOLUTION 


The four characteristic equations are written as a function of five 
variables, R,X,^, V, and S. An additional relationship is obtained by 
assuming the entropy, S, varies linearly between known data points. Using 
these characteristic equations in finite difference form, the routine solves 
for a new mesh point, (mowing two mesh points of an opposite family. 

The solution is begun by setting the average values of properties over 
the step length equal to the kno%m values at the base point. Subsequent 
passes in the iterative solution result in "updated** average values. The 
iterative solution is continued until the desired convergence on velocity or 
flow artgle is reached or until the maximum number of iterations is exceeded. 

MOSCOL is utilized by subroutine EXP COR to solve the normal line 
immediately downstream of any expansion corner. 
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SUBBOUTIWE NAKE; nSHBHT 
DESCRIPTION 


This subroutine calculates the change In entropy and gas total enthalpy 
along a gas atreaiDline for gas particle flows. 

CALLING SEQUENCE 

CALL NEWENT (NP,IT1,IT2,S3,H3,R,PB) 


where 

NP = number of particles present on streamline 
ITl ■ I for interior point 
= 2 for wall point 

IT2 B I for interior or lower wall point 
B 2 f^r upper wall point 
S3 B entropy at new point 

H3 b total enthalpy or O/F ratio at new point 
K B 5 gas only streamline 

= 7 gas and particles present on streamline 

PB B array containing streamline base point properties (upstream) 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/CONTRL 

COtMON/CHEMXY/ 

COMJWN/AVPROP/ 

COHHON/GAPPA/ 

C(»!MON/SLIPPT/ 

COmON/CHEMXX/ 


COMMON/ CHEMCN/ 

COHMON/VISEX/ 

COMMON/VMIXl/ 

C0MH0N/VMIX3/ 

C0MM0N/VMIX5/ 

C0MM0N/PARTP2/ 

CHEM 


^ffiTHOD OF SOLUTION 


The compatibility relations for gas total enthalpy and entropy (Eqs. 
(4.2) and (4.3) of Table 4-1, Vol. I) are solved at the new streamline point 
knowing the gas and particle properties at the new and base streamline 
points. For gas only flows (and streamlines not crossing a shock) the gas 
total enthalpy and entropy are held constant along a given streamline. 
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FUNCTION NAME; NOSMCK 
DESCRIPTION 

This routine checks Co see whether the start line is close enough to a 
true normal to proceed with Che solution assuming the sCartlloe is a normal. 

CALLING SEQUENCE 

INM = NORMCK(L) 

where L is the number of points on the start line. NORMCK = 0, the line is 
close to a normal. NORMCK-1, Che line is not close to a normal. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/DATAR/ 

METHOD OF SOLUTION 


A new normal is constructed using the streamline angles from the 
starcline and an assumed step size equal to the axial distance between the 
first and last starcline points. If the difference in the axial step size 
between the upper wall points exceeds 1-1/2 times Che centerline axial step 
then the solution will not begin at the axis until the region above the 
start line is calculated. 
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SUBROUTINE NAME; NORSOC 
DESCRIPTION 


This routine t’ses local flow properties to calculate properties 
downstream of a normal shock to obtain pitot pressure. This routine is used 
only for finite rate chemistry real gas cases. 

CALLING SEQUENCE 

CALL NORSCK (VI,PI,EMI,TI,GMI,RI,HI,POSTR) 


where 


VI, PI ,HI are the local values of velocity, pressure, 

Mach number, temperature, gamma, gas constant 
and enthalpy 

POSTR is the pitot pressure. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ GASCON/ 

O»lM0N/PCTC/ 

TOFENH 

ITSUB 

METHOD OF SOLUTION 


The downstream conditions are first estimated uc'ng ideal gas 
relations. The routine then performs an iteration as follows: 

1. Calculate downstream static enthalpy from energy equation. 

2. Iterate in subroutine TOFENH for temperature, gamma and gas constant. 

3. Calculate downstream pressure from continuity and equation of state. 

4. Check to see if resultant pressure satisfies the Rayleigh line 
equation. If not, increment the downstream velocity and repeat 
steps 1 through 4. 

5. When the iteration is complete, the pitot pressure is determined 
from the downstream conditions. 
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FUNCTION NAME; OPSBT 
DESCRIPTION 


The function determines the oxldlzer*-to*-fuel ratio on the initial data 
surface for the single-phase transonic module. 

CALLING SEQUENCE 

OF = OFSET(R) 

where R is the radial coordinate of the point on the initial data surface 
and OF is the OF ratio at the point. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/DATAR/ 

METHOD OF SOLUTION 

A linear interpolation is performed using the local radial coordinate 
and an input table of O/F vs radial position. 
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SUBROUTINE NAME; ONBD 
DESCRIPTION 


This subroutine integrates the relations for one-dimensional two-phase 
perfect gas nozzle flow through the nozzle conical inlet assuming the flow 
is directed toward a sink point at the apex of the cone. 

CALLING SEQUENCE 


CALL ONED 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/DRAG/ 
OMION/DATAR/ 
COMMON/NAME L/ 
0»010N/NAMEM/ 
COMHON/NAMEQ/ 


COMMON/ NAMER/ 
COMMON/NAMES/ 
COMMON/NAMEX/ 
COMMON/NAMEY/ 
COMMON/NAMEl/ 


METHOD OF SOLUTION 


See Section 5.6.52 of Ref. 7. 
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SUBROUTINE NAME; ORTHLS 
DESCRIPTION 


This subroutine finds the least squares polynomial which best 
approximates a weighted set of data points using orthogonal polynomials. 

CALLING SEQUENCE 

CALL ORTHLS (XA,YA,WA, U,LA, JA,CA,ALPHAA,BETAA,KA,TA,TB,TC,INDA) 


where 


XA 

YA 

WA 

IJ 


LA 


JA 

CA 

ALPHAA 

BETAA 

KA 


TA 


TB 


Is the array of IJ data points for the Independent variable. 

Is the array of IJ data points for the dependent variable. 

Is the array of IJ weights for the data points. 

Is the number of elements in the XA,YA, and WA arrays. 

Also, N is the number of elements in the TA, TB and TC 
arrays. 

Is the weight switch: 

= 0 If weights are all set equal to one; 

= 1 if weights are Input In th W array. 

Is the number of loworder coefficients to be set equal to 
zero. 

Is the array of KA + 1 computed polynomial coefficients. 

Is the computed a array. 

Is the computed S array. 

Is the maximum degree of the polynomial to be fitted. Also, 
KA + 1 Is the number of elements in the C array and K is the 
number of elements in the ALPHA and BETA arrays. 

Is an array of IJ elements used for temporary storage by 
ORTHLS. Its contents upon return from ORTHLS are of no 
significance to the user. 

Is an array of IJ elements used for temporary storage by 
ORTHLS. The contents upon return from ORTHLS are of no 
significance to the user. 
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TC is an array of IJ elements for temporary storage by ORTHLS. 

The contents upon return from ORTHLS are of no significance 
to the user. 

INDA is the error indicator: 

•» -1, when JA >KA 
= +1, when JA ^ KA. 

UTILITY ROUTINE AND COMMON REFERENCES 


None. 

METHOD OF SOLUTION 

See Section 5.6.53 of Ref. 7. 
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SUBROUTINE NAME; OUT 
DESCRIPTI ON 

OUT writes the calculated data for data points along with the 
corresponding title and headings. 

CALLING SEQUENCE 

CALL OUT (I1,I2,K,K1W1,K1W2,FFPARY) 


where 11,12 refer to the point numbers of the points to be output (any 
number of points may be output at one time. K represents the current normal 
line (takes on the value 1 or 2). PFPARY is the array containing the 
particle properties. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 
COMMON/ DATAR/ 
COMMON/GASCON/ 
COMMON/ HEAD/ 
COMMON/ PARTP4/ 
COMMON/ PARTP 2/ 
COMMON/GAPPA/ 
COMMON/WRITPT/ 
COMMON/TEMPER/ 
COMMON/FTSTAG/ 
COMMON/ CRITER/ 
COMMON/TOTAL/ 
COMMON/BOMOUT/ 
COMMON/ CHEMCN/ 
COMMON/ CHEMXX/ 
COMMON/ GAS DAT/ 


COMMON/UMIX2/ 
COMMON/ VMIX3/ 
COMMON/ PRAD/ 
COMMON/ PSTR/ 
COMMON/AMF/ 
POFEM 
PAGE 
PFP 

THERMO 

PPATPT 

NORSCK 

VEMAG 

SPCTX 

ESHOCK 

VMODl 

VM0D2 


METHOD OF SOLUTION 
Not applicable. 
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S UBROUTINE NAME: OUTBIN 

UESCRIPTION 


This subrcatlne writes the calculated normal data on the binary output 
tape. This Is done for any number of data points. The routine will also 
punch (or write on a file) an exit pl^ne start line or a restart startline. 

CALLING SEQUENCE 

CALL OUTBIN (II , 12 , JK.KIWI ,K1W2 .PFPARY) 

where 11,12 identifies the range of points to be written on tape (IJl is 
first point, 12 is last). JK represents the current characteristic line (1 
or 2). KIWI and K1W2 are flags which specify whether or not to punch a 
start line. PFPARY is the array containing the particle properties. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/TAPRIT/ 

COMMON/PSTR/ 

COMMON/ DATAR/ 

COMMON/ GAPPA/ 

COMMON/FORCE/ 

COMMON/GASDAT/ 

COMMON/ GAP PA/ 

COMMON/ PRAD/ 

COMMON/ PARTP4/ 

COMMON/ CHEMCN/ 

C0MM0N/PARTP2/ 

COMMON/ CHEMXX/ 

COMMON/CONTRL/ 

COMMON/F3TAG/ 

COMMON/ GLOBAL/ 

COMMON/ VMIX3/ 

COMMON/ AUX/ 

VMODl 

COMMON/ AMF/ 

THERMO 

COMMON/ PUNEXT/ 

PFP 

COMMON/ FLAG/ 

TEMTAB 

COMMON/ ISTRT/ 

SPCTX 

COMMON/ TRPRT/ 

EMOFY 


METHOD OF SOLUTION 
Not applicable. 
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SUBROUTINE NAME: OUTPUT 

DESCRIPTION 


This subroutine prints out the calculated data for the data points in 
the single-phase transonic module. 

CALLING SEQUENCE 

CALL OUTPUT (L.PEPARY) 

where L is the new tlmestep indicator and PFPARY is the array containing all 
the flow characteristics of the transonic data points. 

UTILITY ROUTINES AND COMMON REFERENC ES 

COMMON/DATAI / 

comoN/sraL/ 

PAGVOF 

PHI 

THERMT 

MASS 

M£TiK)D OF SOLUTION 


Not applicable. 
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SUBROUTINE NAME; OVEREX 
DESCRIPTION 


OVEREX solves for the shock angle at the nozzle lip when the flow is 
overexpanded. Provisions are made to calculate the shock angle for an upper 
or lower lip point. Real gas effects are considered in calculating flow 
properties downstream of the shock. 

C. 4T.L1NC S EQ UENCE 

CALL OVEREX (PB,I,K,ITYPEl,KlWl,iaw2,PFPARY) 

where PB is the freestream pressure at the boundary; I,K defines the 
location of the lip point in the characteristic data (PHO) array and ITYPEl 
ricicates whether an upper t=2) or lower (=1) boundary is to be considered. 
PFPARY is the array containing particle properties. 

UTILITY ROUTINES AND COMMON REFERENCES 


CMIMON/DATAR/ 

POFEM 

COMMON/ PARTP4/ 

ITSUB 

C(M10N/PARTP2/ 

PFP 

EMOFV 

UOFV 

ESHOCK 

IimPFP 

THERMO 

ERRORS 


METHOD OF SOLUTION 


For the first pass through the solution, an initial shock angle is 
assumed. This shock angle is perturbed in ITUSB and the result used to 
calculate flow properties including static pressure downstream of the 
shock. The calculated static pressure is compared with the boundary 
pressure to determine if the desired convergence has been obtained. If the 
solution has not converged ITSUB is called again and the above procedure is 
repeated. 
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SUBROUTINE NAME: PA<3 

DESCRIPTION 


This subroutine page ejects and writes the header comments and page 
number on each page of printout. 

CALLING SEQUENCE 

CALL PAGE (LCNT,K1W1,IQH2) 

where LCNT is a counter which monitors the number of lines of printed output 
per page. LCNT is reinitialized in PAGE. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMION/UEAD/ 

COlQfON/ CONTROL/ 

UTILITY - None 

ffiTKOO OF SOLUTION 


When the maximum number of lines per page (35) have been output, PAGE 
is called to page eject. It then prints the identifying information and the 
page number, increments the page number and reinitializes the line counter. 
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SUBROUTINE NAME: PACVOF 

DESCRIPTION 

The subroutine page ejects and writes the header conments on each page 
of printout for the single-phase transonic module. 

CALLING SEQUEICE 

CALL PAGVOF 

UTILITY ROUTINES AND COMMON REFERENCES 
COMMON/ HEAD/ 

METHOD OF SOLUTION 
Not applicable. 
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SOBROUTIME MAME: PARINT 

DESCRIPTIOH 


The subroutine determines the particle properties for the portion of 
the first normal downstream of a Prandcl-Heyer expansion which is influenced 
by the expansion fan. 

CALLIWG SEQUEWCE 

CALL PARINT (INL,I11,K,IFG,PFPARY) 

where INL is the number of particle limiting streamlines which penetrate the 
Prandcl-Heyer fan, (I11,K) is the first point in the Prandtl-Heyer fan on 
the new line, IFG is a flag which is returned to the calling routine which 
is a zero if the intersection of the particle streamline was performed 
satisfactorily or a 10 if the intersection was above or below the 
expansion. If IFC returns as a 10 the new normal (K-line) is recalculated 
with a smaller step size. PFPARY is the array containing particle 
properties of the old and new normals. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/TOTAL/ 
INRSCT 
CHECK 
PFP 

IDMPFP 

METHOD OF SOLUTION 


COMMON/ LSAD/ 

CO»«ON/PARTP2/ 

C0MM0N/PARTP4/ 

COMMON/GAPPA/ 

COMMON/DATAR/ 


The Prandtl-Meyer expansion is performed assuming there are no 
particles present. This routine calculates the properties of any particles 
which enter the zone of Influence of the Prandtl-Meyer fan. The limiting 
streamlines and associated properties which enter the fan are known before 
entering this routine (from PARSTR). Once the new normal has been 
completed, including the expansion fan points, PARINT uses the previously 
saved data to intersect the limiting streamlines with the new normal to 
locate the new limiting streamline and associated properties. The particle 
properties at all the remaining particle sizes at the other expansion fan 
points are determined via interpretation. 
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SUBROUTINE NAME; PARLOR 
DESCRIPTION 


The routine determines the Intersection of the particle limiting 
streamlines with the edge of the boundary layer. It also determines the 
particle properties at the edge of the boundary layer so that PBLTRC and 
TRACE? can trace particle streamlines through the boundary layer. 

CALLING SEQUENCE 

CALL PARL0K(R9,ICT,NPAR,PFPARY) 


where r 9 is the radical coordinate of the boundary layer edge at each 
boundary layer solution station. R9 Is the coordinate at which the boundary 
layer/boundary layer edge velocity is .995. ICT is the boundary layer 
station number, NPAR is the number of particle sizes which are found at any 
given station and PFPARY Is the array which contains particle properties 
which are read from the invlscid nozzle solution tape and are used to 
determine the particle properties at the boundary layer edge. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/DAT/ 
COMHON/EVERY/ 
COMMON/ FLOW/ 
COMMON/ ITOTI/ 
COMMON/ LIMIT/ 
C(XftlON/PARTP2/ 
COMMON/ QUITIT/ 


COMMON/SAVTEM/ 

a»(MON/SPEL/ 

COMMON/ STATN/ 

COMMON/TRCDAT/ 

READF 

INTERP 

TAPMOV 


METHOD OF SOLUTION 


The Inviscld nozzle solution (saved on tape) and bouiiaary layer 
solution (BLIMPJ) results are known prior to entry to PBLTRC. The boundary 
layer edge at each of the boundary layer solution stations is also known. 
PARLOR utilizes the Inviscld nozzle flowfield tape to determine the particle 
properties at the edge of each boundary layer station along with the 
location and properties of all particle limiting streamlines which intersect 
the boundary layer anywhere Inside the nozzle. 
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SUBROUTINE NAME; PARSTR 
DESCRIPTION 


This subroutine saves the particle streamline location and properties 
at the last normal before a Prandtl-Meyer expansion. 

CALLING SEQUENCE 

CALL PARSTR (INL.ITRY, J,K,ITST,PFPARY) 

where INM is the number of particle limiting streamlines which enter the 
expansion fan, (ITRY,K) is the point number on the new normal which is being 
overriden by the Prandtl-Meyer expansion and whose properties and properties 
of the point above it are to be saved. J is the line identifier for the old 
normal prior to the expansion fan. ITST is a 1 if the particle limiting 
streamline is at the nozzle wall (i.e., particle impingement with the nozzle 
wall has occurred) and ITST is a 2 for all particle limiting streamlines 
which have not impinged on the nozzle wall. PFPARY is the array which 
contains the particle properties on the old and new normals. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/DATAR/ 

COMMON/GAPPA/ 

COMMON/ LS AD/ 

CO!MON/PARTP2/ 

COMMON/ PARTP4/ 

COMMON/TOTAL/ 

PFP 

METHOD OF SOLUTION 


This routine saves only the data for any particles size groups whose 
streamlines have been determined by PHASEl to enter the zone of influence of 
the Prandtl-Meyer fan on the first normal downstream of the expansion 
corner. This Information which is saved by PARSTR will subsequently be used 
by PARINT to determine particle flow properties in the Prandtl-Meyer zone of 
the first normal beyond the expansion corner. 
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SUBROUTINE NAME: PARTIL 

DESCRIPTION 


This subroutine is the control subroutines for the Approxlioate 
Transonic Analysis module. This routine and the other routines were taken 
from the SPP code (Ref. 7) and modified for use by the RAMP2F program to 
obtain the two-phase transonic start line. 

CALLING SEQUENCE 

CALL PARTIL (NTAPE.NSETS) 


where 

NTAPE the FORTRAN unit on which the start line is stored 

(usually 8) 

NSETS the number of start line points for which there are 

particles present 


UTILITY ROUTINES AND COMMON REFERENCES 


C(»1M0N/ILINE/ 

COMMON/NAIEY/ 

COMMON/ XXSH/ 

ORTULS 

COMMON/DELT/ 

COMMON/ ERR/ 

COMMON/ CONTRL/ 

COEFS 

CWIMON/DRAG/ 

COMMON/NAMEA/ 

COMMON/ PCTC/ 

PAGE 

COMMON/DATAR/ 

COMMON/NAMEl/ 

PROP 

TAB 

CWMON/NAMEL/ 

COMMON/RZWl/ 

FIXIL 

SITER 

COMMON/NAMEM/ 

COMMON/ SOURCE/ 

ONED 

TOFEM 

COMMON/NAMEQ/ 

COMMON/ PARTP2/ 

DLTA 

THERMO 

COMMON/NAMER/ 

COMMON/ FI LIT/ 

HDGl 

EMOFV 

C(»1M0N/NAMES/ 

COMMON/ GASDAT/ 

TRACE 

TOFV 

COMMON/NAMEX/ 

COMMON/ GASCON/ 



METHOD OF SOLUTION 




See Section 5. 

,6.55 of Ref . 7. 
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SUBROUTINE NAME: PARTIN 

DESCRIPTION 


This subroutine reads in gas and particle property startline data. 
Data are read in from cards or tape. 

CALLING SEQUENCE 

CALL PARTIN (NSETS,NTAPE,PFPARY) 


where 

NSETS is the number of startline points where particles 
are present 

NTAPE is the FORTRAN unit to read the startline data 
from (=7 for cards), NTAPE usually = 8 for two- 
phase and single-phase startline generated by the 
program, PFPARY is the array containing particle 
properties. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ PARTP4/ 

C(MK)N/PART2/ 

COMMON/ INPUT/ 

COMMON/ CONTRL/ 

COMMON/MASSC/ 

COmON/WT/ 

COMMON/ PSLD/ 

C(M!ON/ONTSPT/ 

COMMON/GASCON/ 

COMMON/TEMPER/ 

COMMON/NSF/ 

COMMON/LIPCOM/ 

COMMON/ PCTC/ 

COMMON/GASDAT/ 


COMMON/VISEX/ 

COMMON/FSTAG/ 

COMMON/ BOMOUT/ 

COMMON/TRPRT/ 

COMMON/SPEL/ 

COMMON/CHEMXX/ 

RGVOFM 

UOFEM 

TOFEM 

POFEM 

SPCTX 

THERMO 

IDMPFP 

PFP 


METHOD OF SOLUTION 


The gas start line points are read starting with the axis point and 
input up to the boundary, while the particle startline data is input 
starting with the last limiting streamline or last gas startline point and 
input down to the axis. 
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SUBROUTINE NAME; PABTPH 
DESCRIPTION 


This subroutine reads and sets up the data table of particle 
temperature versus enthalpy. This routine also prints out the particle drag 
tables as well as the temperature versus enthalpy tables. 

CALLING SEQUENCE 

CALL PARTPH (IPFTOC,LCT,NGS) 


where 


IPFTOC 


zero for two-phase case 
10,000 for gas only case 


LCT * line counter for printout purposes 
NGS = a dummy variable 
UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ GASTPE/ 

COMMON/ CONTRL/ 

COMMON/TPHEH/ 

CCMION/GASDAT/ 

COMMON/DRAGCF/ 

COMMON/ PARTP2/ 

COMMON/DATAR/ 

COMMON/TFLAG/ 

COMMON/TAPRIT/ 

COMMON/TRPRT/ 

PAGE 

METHOD OF SOLUTION 


Not applicable. 
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SUBROUTINE NAME; PBLTRC 
DESCRIPTION 


The subroutine provides overall control over tl i particle trajectory 
tracing module for determination of the properties of the particles in the 
boundary layer at the exit plane of the nozzle. 

CALLING SEQUENCE 

CALL PBLTRC (PFPARY) 

where PFPARY is an array which is generally used to store particle 
properties but is used as a working array in the particle trajectory tracing 
module. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CHOCK/ 
COMMON/ CONTROL/ 
COMMON/ CONVV/ 
COMMON/GAPPA/ 
COMMON/HITWAL/ 
COMMON/ IPMX/ 
COMMON/MET/ 
C(»1M0N/PARTP2/ 
COMMON/ PRAD/ 
COMON/PSLD/ 
COMMON/QUITIT/ 
COMMON/SPEL/ 


COMMON/TFLAG/ 

COMMON/TRCDAT/ 

IDMPDT 

IiaiPRO 

INRSCP 

PARKOK 

PRO 

PRO 

TAPMOV 

TRACEP 

WTFLOP 

WRITP 


METHOD OF SOLUTION 

This routine uses as Input the inviscld nozzle results saving on unit 3 
and the boundary layer results which are stored on unit 2. Particle 
properties In the boundary layer at the exit plume are determined via the 
following: 

STEP 1 The boundary layer results are read in from unit 2, converted 
to vertical data stations along the nozzle wall and saved for 
further use. 

STEP 2 The particle properties at the edge of the boundary layer are 
determined from the flowfield tape (unit 3) and saved for 
Initializing the trajectory tracing. If no particles are 
found to penetrate the boundary layer then the routine Is 
exited. 
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STEP 3 


STEP 4 


For each particle size that penetrates the boundary layer, 
eight particle trajectories (at even axial Increments from 
the limiting streamline penetration to the exit plane) plus 
the limiting streamline trajectories are traced through the 
boundary layer up to the exit plane. 

All particle sizes and properties are merged at the exit 
plane, summarized and stored for future use by the program 
for generating a viscous, two-phase startline fot a plume 
station. 
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FUNCTION NAME; PDF 
DESCRIPTION 


This function computes the particle property data storage location ard 
retrieving data from the PDAT array. This array contains the particle 
properties in the boundary layer at the exit plane of the nozzle. 

CALLING SEQUENCE 

= PDT(I,J,K,L) 

where I,J,K,L are indices used to determine the storage location. 

UTILITY ROUTINES AND COMMON REFERENCES 
COMMON/GaPPA/ 

METHOD OF SOLUTION 


This routine simulates a four-dimensional array. The particle property 
storage location is computed using the following relation: 

IX = I + 10 + (J-1 + 7*(K-1 + 10*(L-1))) 

and retrieved using the relation 

PDT = PDAT(IX) 
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FUNCTION NAME: PFP 

DESCRIPTION 


This function computes the particle property data storage location and 
retrieves data from the PFPARY array. 

CALLING SEQUENCE 

= PFP(I,J,K,L) 


where 


I,J,K,L are Indices used to determine the storage location. 

UTILITY ROUTINES AND COMMON REFERENCES 

C0MM0N/PARTP3/ 

COMMON/ PARTP 2/ 

COMMON/ PARTP4/ 

METHOD OF SOLUTIO N 

The particle property data storage location is computed using the 
following relation 

IX = I + 5 * (J-1 + 10 * (K-1 + 100 * (L-1)): 
and retrieved using the relation 
PFP « PFPARY (IX). 
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SUBROUTINE NAME: mSEl 

DESCRIPTION 


This subroutine provides the necessary controlling logic fo'' the 
complete flowfield calculation. Proper subroutines are called to handle 
different kinds of calculations. 

CALLING SEQUENCE 

Call PHASEl (IFINI3,1TRS,K1W1,K1W2,PFPARY) 


where 


IFINIS is a zero 
K2W1,K2U2 are error flags 
ITRS = 0 normal execution 

10 two-phase solution with two-phase startline 
set up by program 

20 exit plane startline using inviscid and viscous 
merged results 

PFPARY is the array containing particle properties on the startline 
and subsequently used to store particle properties on the 
old and new normals. 

UTILIVY ROUTINES AND Ct»«0N REFERENCES 


CWfilON/CONTRL/ 

0»®K)N/VM1X3/ 

POFEM 

COMMON/DROP/ 

COMMON’/ VMIX4/ 

EMOFV 

COMMON/GASCON/ 

C(»m0N/VMIX6/ 

RGMOF? 

COMMON/NSF/ 

COMMON/ PSTR/ 

VCFEM 

COlMOl 'DATAR/ 

COMMON/CHEMCN/ 

THETPM 

COMMON/ GAPPA 

COMMON/ PUT/ 

TOFEM 

COMMON/GLOBAL/ 

COMMON/AMF/ 

SOKSOL 

COMMON/STEPC/ 

COMMON/ PTEN/ 

STRNOR 

O»!M0N/PARTP4/ 

COMMON/MASOUT/ 

ERRORS 

COMMON/TEMPOl/ 

COMMON/ CAPUR/ 

MASSCK 

COMMOM/TEMP02/ 

COMMON/ ISEA/ 

CHECK 

COMMON/TOTAL/ 

COMMON/MRITIT/ 

PFP 

COfliON/OVERLA/ 

COMMON/ CUTFO/ 

IDMPFP 

COMMON/ CRI TER/ 

COMMON/ CPSV/ 

INRSCT 

CWMON/INTEU/ 

COMMON/LI PFX/ 

SOKINT 

COMMON/ PSEC/ 

COMMON/ IRN/ 

FREEMC 

C0MM0N/TEMP03/ 

COMMON/SKIPPY/ 

THERMO 

COMMON/ FREE/ 

COMMON/ PUNEXT/ 

PRFRBD 

CaiMON/XXSH/ 

COMMON/ LSAD/ 

EXPCOR 

COMMON/BPRESW/ 

OUT 

MESH 

COMMON/PCTC/ 

THRUST 

NORMCK 

COMMON/ CHEMXX/ 

OUTBIN 

VMODEL 
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C(»mON/VlSEX/ 

SPJTX 

VMODl 

COMMON/ EXPER/ 

PPATPT 

PLOAD 

COMMON/GASDAT/ 

LIMITS 

IBOUND 

COMMON/ FSTAG/ 

BOUND 

INTT 

COMMON/WAFT/ 

BOUNDA 

AVERAG 

COMMON/ PARTP2/ 

PRANDT 

IRAD 

COMMON/LIPPT/ 

UOFV 

SLSKIP 

COMMON/ BLMDAT/ 

ITERM 

ALGINT 

COMMON/RSTART/ 

TURN 

CBREAK 

COMMON/ PRAD/ 

HYPER 

PARSTR 

PARINT 

SLINT 


>CTHOD OF SOLUTION 


This subroutine makes most of the tests to determine what kind of 
calculation should be carried out for the point under consideration. The 
point may be a regular field point, solid or free boundary point, expansion 
corner points at the free boundary, and expansion corner points at solid 
boundary, etc. This routine calls either the characteristics or shock 
capturing methodology for solving points depending on user selected optio-.. 
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FUNCTION NAME : PHI 

DESCRIPTION 


This function computes the flow property data storage location for any 
grid point at the new or old timestep in the single phase transonic module. 
This function returns the required data from the PFPARY which is used as a 
working array in this module. 

CALLING SEQUENCE 

= PHI(I,J,K,L, PFPARY) 

where I,J,K,L are indices used to determine the storage location in the 
PFPARY array . 

UTILITY ROUTINES AND COMMON REFERENCES 
COMMON/ DATAR/ 

METHOD OF SOLUTION 


This routine simulates a four-dimensional array. The flow property 
storage location is computed using the following relation: 

IX = 1 + 12 * (J-] + 15 * (K-1 + 27 * (L-1))) 

and retrieved using the relation 

PHI = PFPARY(IX). 
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SUBROUTINE NAME; PHYSOL 
DESCRIPTION 


This subroutine finds the reference properties on the characteristic 
line so that the compatibility equations can be used to calculate the flow 
velocity and angle of a point downstream of the known reference normal line 
(or surface). 

CALLING SEQUENCE 

CALL PHYSOL (PRET, IS, JS, IN, KN, IDIR, IFLAG, KIWI, K1W2, PIS, 
PIN, WI, PMl, IPM, IPMl, KPM, JAG, P, ARGN, ISLIP, KSLIP, IFIX, 
1141, IQUAD, H, SAVE, DP, PFPARY) 


where 


PRET(8) 

(IS,JS) 

(IN,KN) 

IDIR 

IFLAG 

PIS(8) 

PIN(8) 

PM(8) 

PMI(8) 


is the storage array of reference properties found 

is the point on the reference normal line (J-line), normally 
on tha same streamline as the one under consideration 

is a known point just below the point under consideration on 
the new normal line (K-lin-?) 

indicates if a I-characteristic (=+l) or a 11-characteristic 
(=-l) is being considered 

is a control indicator to return the proper message to the 
calling subroutine in order that a proper measure can be 
taken 

array containing the flow properties of the streamline base 
point 

array containing the new flow properties of the streamline 
point 

array containing the flow properties of point IW! which 
brackets the characteristic intersection 

array containing the flow properties of point IPMl which 
brackets the characteristic intersection 


IPM, IPMl the point numbers of the two adjacent points on the old data 
surface which brackets the characteristic Intersection 
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KPM 

JAG 

P(8) 

ARGN 

ISLIP 

KSLIP 
I FIX 

1141 

IQUAD 

H 

SAVE (8) 

DP(8) 

PFPARY 


if Che characteristic line intersects a boundary, shock, or 
slipline KPM is the point number on the new data surfa e 
which bounds the intersection 

Che point immediately above or below the streamline base 
point. This point is used to detect the presence of a 
slipline 

array in which the characteristic intersection flow 
properties are stored 

the angle of the normal 

flag which indicates if not enough data is known to obtain 
the characteristic intersection 

if KSLIP is a 1 the characteristic has intersected a slipline 

index used within PHYSOL which indicates if the two points 
which bracket the characteristic intersection have been found 

flag which indicates if the characteristic intersection is 
below the first point or above the last point on the old 
data surface 

1 - interpolation Is being made on R 

2 - interpolation is being made on X 

interpolation factor between point im and imi necessary to 
obtain the characteristic intersection 

array which is used to retain data from previous 
intersections 

array which contains the flow property differences between 
points IPM and IPMl 

array wnich contains particle properties. 
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UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ POINTC/ 
COMMON/ GASCON/ 
COmON/TEMPER/ 
COMMON/ FST AG/ 
C(»tMON/CHEMXX/ 
COMMON/ 00 NTRL/ 
COMMON/DATAR/ 
COMMON/ SLIPPT/ 


C0MM0N/TEMP02/ 
COMMON/ PARTP4/ 
COMMON/ CPSV/ 
COMMON/ VMIX3/ 
COMMON/CAPUR/ 
COMMON/ PARTP2/ 
COMMON/GAPPA/ 
COMMON/ DROP/ 


COMMON/ CRITER/ 

BOUND 

THERMO 

INRSCT 

ITSUB 

PFP 

UOFV 

GAPPBI 

PPATPT 

VMODEL 


METHOD OF SOLUTION 


The characteristic line is drawn from the point under consideration to 
intersect the known upstream reference normal line. The reference 
properties of this intersection are interpolated from the two known points 
on the reference normal line. Subroutine ITSUB and the average quantities 
are used to obtain a better approximation of the reference properties. 

If the reference properties are not readily available, IFLAG is set to 
2, and the reference properties are then assumed to enable the calculation 
to be continued. Normally, the calculation of this point is repeated 
afterward to obtain the correct reference properties for the calculation of 
the new point under consideration. 
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SUBROUTINE NAME: PUiODT 


DESCRIPTION 


PLMOUT prints the data read by PLUMIN. 
CALLING SEQUENCE 


CALL PLMOUT (KP,LCNT,K1W1,K1W2,PFPARY) 


WHERE KF Is a control parameter set in PLUMIN, and LCNT is the printed line 
counter. PFPARY is the array which contains particle properties. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 

COMMON/ WT/ 

COMMON/ CUTFO/ 

COMMON/ STEPC/ 

COMMON/GASDAT/ 

COMMON/WAFT/ 

COMMON/DATAR/ 

COMMON/ FREE/ 

COMMON/GASCON/ 

C(»lMON/MOL/ 

COMMON/ HEAD/ 

COMMON/TAPRIT/ 

COMMON/ INPUT/ 

COMMON/ FSTAG/ 

COMMON/ GAPPA/ 

COMMON/ PRAD/ 

CWIMON/PARTP4/ 

PAGE 

COMMON/ PARTP 2/ 

TAB 

C(»1M0N/MASSC/ 

IDMTAB 

COMMON/ PARTTP/ 

EMOFV 

COMMON/ PSLD/ 

THERMO 

COMMON/DRAGCF/ 

PFP 


METHOD OF SOLUTION 
Not applicable. 
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SUBROUTINE NAME: PLOAD 

DESCRIPTION 


This subroutine loads data from one point into another point. 

CALLING SEQUENCE 

CALL PLOAD (1,K,L, J,MM,PFPARY) 

where point (I,K) is being loaded with all the data defining point (L,J). 

MM is indicator (1,2) used to temporarily store gas specie mole fraction 
data for storage into the (I,K) point gas species storage location. PFPARY 
is the array which contains particle property information. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ CHEMCN/ 

COMMON/ CONTRL/ 

COMMON/DATAR/ 

COMMON/FSTAG/ 

COMMON/ GLOBAL/ 

C(»1M0N/PARTP2/ 

C0MM0N/PARTP4/ 

IDMPFP 

PFP 

SPCTX 

METHOD OF SOLUTION 


Not applicable. 
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SUBROUTINE NAME: PLUMIN 

DESCRIPTION 


PLUMIN reads in the input data (input via cards) necessary to perform 
the streamline-normal sclution. This routine provides control for all input 
functions by selectively calling pertinent input routines and/or the tran- 
sonic solution. 

CALLING SEQUENCE 

CALL PLUMIN (K1W1,K1W2,NTAPE,NSETS,RRT,XSHSV, ITRS.PFPARY) 


where 


Kiri K2W2 are multi-use flags 

NTAPE is FORTRAN unit or tape number on which starting line 

is written 

NSETS is the number of starting line points which have 

particles present 

RRT is the nozzle throat radius of curvature ratio 

XSHSV distance from nozzle throat to center (x = 0) of 

coordinate system 

ITRS - 0 read in all input data except startling if read from tape 

1 read in starting line from tape or FORTRAN unit NTAPE 


PFPARY is the array which contains the startline particle 
properties. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMCN/CONTRL/ 
COMMON/ CUTFO/ 
COMhOV/DATAR/ 
C(»1M0N/GASC0N/ 
COMMON/ HEAD/ 
COMMON/ INPUT/ 
COMMON/STEPC/ 
COMMON/TFLAG/ 
COMMON/SIGMB/ 
COMMON/VISEX/ 
COMMON/VARSL/ 
COMMON/ PARTTP/ 


COMMON/ SIGNAL/ 

COMMON/LIPCOM/ 

COMMON/DRAGCF/ 

COMMON/PSLD/ 

COMMON/ CRI TER/ 

COMMON/WAFT/ 

COMMON/ XXSH/ 

COMMON/FREE/ 

COMMON/MOL/ 

COMMON/TAPRIT/ 

COMMON/ CHEMCN/ 

COMMON/PRAD/ 


COMMON/ GASDAT/ 

COMMON/ ACOM/ 

COMMON/ IDL/ 

COMMON/EXPNN/ 

COMMON/ KAPUR/ 

PARTPH 

PLMOUT 

IBOUND 

STARTV 

LOGIC 

STLINE 

GASRD 
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COMMON/ PARTP4/ 

COMMON/ VMIX3/ 

BOUND 

COMMON/ PARTP2/ 

COMMON/ TRPRT/ 

LIPIN 

COMMON/GAPPA/ 

COMMON/SKIPPY/ 

AOASTR 

COMMON/WRI TPT/ 

COMMC" /RSTART/ 

MASCON 

COMMON/MASSC/ 

COMMO.l'ISTRT/ 

SETHTG 

COMMON/ BPRESW/ 

COMMON/ STS VB/ 

PARTIN 

COMMON/ PARTWT/ 




METHOD OF SOLUTION 


Not applicable. 
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FUNCTION NAME; POFEM 
DESCRIPTION 


This function computes the local static pressure as a function of Mach 
number, entropy, and total temperature (ideal gas, two-phase only). 

CALLING SEQUENCE 

P = POFEM (EM,S,1QW1,K1W2) 

where P is the resultant static pressure found from the Mach number, EM, and 
entropy, S. NOTE: Appropriate values of the gas properties must be stored 

in conunon upon entry to this routine. 

UTILITY ROUTINES AND COMMON REFERENCES 

C(»1M0N/GASC0N/ 

COMMON/TEMPER/ 

UTILITY - None 

METHOD OF SOLUTION 


Thermally perfect gas relationships are used to find the pressure. 

-Y/Y-1 


p = p„e 


-S/R 


(■•s'-r ft) 
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SUBROUTINE NAME: POFH.PAFH* 

DESCRIPTION 


This routine utilizes the tabulated data of enthalpy and specific heat as 
functions of temperature for each species of a finite rate chemistry case to 
calculate pressure, as a function of enthalpy for a real gas, in a 
Prandtl-Meyer expansion. 

CALLING SEQUENCE 

CALL POFH (VF,HT, DELTA) 

CALL PAFH(VF,HT, DELTA) 

where 


VF is the final velocity 
HT is the total enthalpy 
DELTA is the flow deflection angle. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/GASCON/ 
COMMON/ PCTC/ 
COMMON/EXPER/ 
COMMON/ CPMUK/ 
ITSUB 

METHOD OF SOLUTION 


The routine solves for pressure by incrementally changing the flow angle 
until the final flow angle Is obtained. At each increment the routine 
determines new gas properties from the tables on enthalpy and specific heat as 
functions of temperature, then uses these properties for the next increment. 
The result is an integration of the flow properties through the angular 
change, DELTA. 


POFH and PAFH are the same routines but are included as two separate routines 
in the program because of overlay requirements and the need to keep the core 
requirements as small as possible. 
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SUBROUTINE NAME; POINT 
DESCRIPTION 


This subroutine Is used by the single-phase transonic module to calculate 
the flow properties for Interior and nozzle wall points. 

CALLING SEQUENCES 

CALL POINT (I,J,K,L,ITYPE,PFPARY) 


where 


I point number on data surface 

J data surface number 

K old time step Identifier (1 or 2) 

L new time step Identifier (2 or 1) 

ITYPE 1. Interior point for all but last downstream station. 

2. Upper wall (nozzle) point for all but last downstream station. 

3. Interior point for last downstream station. 

4. Upper wall point for last downstream station. 

PFPARY array containing flow properties for the old and new time steps 
for all points in the transonic computational domain. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/DATAR/ 

PHI 

WXANDR 

WG 

WTT 

IDMPHI 

METHOD OF SOLUTION 


See Ref. 14. 
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FUNCTION NAME: POP 

DESCRIPTION 


This function computes the species mole fract'on storage location and 
retrieves data from PFPARY. PFPARY has been tempo-ur.’.i v loaded with the 
species mole fraction data which has been read froi the TRAN72 themodynamlc 
tape which contains the equilibrium or equllibrium/frozen data for the 
particular propellant system which was stored orlgin'>lly on FORTRAN unit 10. 

CALLING SEQUENCE 

= P0P( I, J,K,L, PFPARY) 

where I,J,K,L ar? indices used t- detennine the storage location In the PFPARY 
array. 

UTILITY ROUTINES AND C0^•M0N REFERENCES 


None. 

DESCRIPTION 


This routine simulates a f >ur-dlmensional array. The species mole 
fraction storage location Is computed using the following relation: 

IX = I + 10 * (J- X + 2 * (K-1 + 25 * (L-1))) 

and Is retrieved using the relation 

POI = PFPARY (IX). 
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SUBROUTINE NAME: PPATPT 

DESCRIPTION 


This subroutine calculates and stores gas and particle dependent 
variables as a function of the Independent flow properties. 

CALLING SEQUENCE 

CALL PPATPT (.M,1C,KC,VG,TUETA,SG,K2W1,K2W2,KP,1SKIP,PG,PFPARY) 


where 


M is the number of particle sizes present at the point 

IC is the point number for which particle and gas flow 

properties are to be calculated 

KC is the line identification flag 

VG '.s the gas velocity at the point 

THETA is tl.a gas flow angle at the point 

SC is the gas entropy at the point 

K2W1 is a dummy variable 

K2W2 is a dummy variable 

KP is the temporary array storage location for the 

particle and gas flow properties 

ISKI? = 0 calculate particle properties only 

= 20 calculate gas and particle properties 
* 40 calculate gas properties only 

PG array containing the point independent flow properties 

PFPARY array containing the particle properties for all points. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/TFUG/ 

COMMON/ PARTP4/ 

C0MM0N/PARTP2/ 

C(»!M0N/GAPPa/ 

COMMON/ONTSPT/ 

C(»«M0N/GASCCN/ 

COMMON/ CONTRL/ 


COMMON/ TEMPER/ 
COMMON/FSTAG/ 
COMMON/ DATAR/ 
COMMON/FREE/ 
COMMON/ CRI TER/ 
COMMC^''PSLD/ 
COMMON/ XXSH/ 
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COMMON/CPMUK/ 

POFEM 

COMMON/ DRAGCF/ 

PFP 

COMMON/ PCTC/ 

TEMTAfi 

COMMON/ ICAPTUR/ 

DRAGMR 

CCWmON/PBLL/ 

DRAGCP 

COMMON/ VISEX/ 



METHOD OF SOLUTION 


The routine is entered knowing the gas independent variables (V,S,OF or 
Hf) and -^article ird'>p endent variables (u,v,p,h). The gas dependent 
variables CT.P.y.u, »'p,Pr) and particle dependent variables (Rg, drag and 
heat transfer terms) are calculated and stored for use in other parts of the 
code . 
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SUBROUTINE NAME: PRANDT 

DESCRIPTION 

This subroutine computes the Prandtl-Meyer expansion angle for a given 
boundary angle and divides this angle into a series of expansion "rays" 
(unless the number of rays has been specified in the input). The flow 
properties at each angular increment are set and stored in the PHO array. 

CALLING SEQUENCE 

CALL PRANDT ( I , J ,THETAB ,NPM, IFLAG, ITYPE, KIWI ,K1W2 ,PFPARY) 


whire 


I represents the corner point 

J indicates a characteristic line 

THETAB is the boundary angle 

NPM number of Prandtl-Meyer increments (calculated in PRANDT) 

IFLAG is an error flag 

ITYPE indicates if upper (2) or lower (1) boundary is being considered 
PFPARY ^s array containing particle properties for new and old normal 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CRITER/ 

THERMO 

COMMON/ DATAR/ 

THETPM 

COMMON/ GASCON/ 

UOFV 

COMMON/STEPC/ 

EMOFV 

COMMON/ CONTRL/ 

TOFV 

COMMON/PCTC/ 

POFEM 

common/ CPMUK/ 

TOFH 

COMMON/ PARTP4/ 

PAFH 

COMMON/ PARTP2/ 

SPCTX 

COMMON/ FSTAG/ 

VMODEL 

COMMON/ CHEMXX/ 


COMMON/EXPER/ 


COMMON/ VMIX3/ 



METHOD OF SOLUTION 


The routine is entered with known flow properties at the point of 
discontinuity along with the known corner and boundary flow angles. From the 
known angles and the preset number of degrees per ray, the number of 
Increments is calculated. The distribution of P-H rays is then adjusted by a 
weighting function. Subroutine THETPM is entered with known initial 
conditions and the number of degrees per ray and returns with a velocity. 
These new conditions are then set into the PHO array. See Volume I, Sections 
6 and 7.7, for the details of calculation. 
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SUBROUTINE NAME; PREAD 
DESCRIPTION 


The subroutine reads the particle data from FORTRAN unit or tape unit 12 
on which the Inviscid exit plane start line has previously l>een stored. This 
data will be used to construct a new startline at the exit plane that includes 
the nozzle boundary layer. 

CALLING SEQUENCE 

CALL PREAD (PFPARY.NSETS) 

where PFPARY is the array in which the particle data will be stored and NSETS 
is the number of points on the exit plane normal which contain particles. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ CONTRL/ 

COMMON/ PARTP2/ 

C0M10N/PARTP4/ 

IDMPFP 

METHOD OF SOLUTION 


Data are read in starting with the points nearest the lip and proceeding 
to the axis point. 
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SUBROUTINE NAME: PRFRBD 

DESCPIPTION 


This subroutine calculates the flow properties at the intersecion of a 
particle limiting streamline and a plume boundary. 

CALLING SEQUENCE 

CALL PRFRBD (IS,JS,IN,KN, l.K.PFPARY) 


where 


IS 

JS 

IN 

KN 

I 

K 

PFPARY 


point number of the old (JS) data surface plume boundary 
line indicator of the old data surface 
point indicator of the old (JS) data surface limiting 
streaml ine 

line indicator of the old data surface 

point number of the new (K) data surface limiting streamline 
line indicator of the new data surface, 
the array containing the particle properties at old and 
new normal. 


UTILITY ROUTINES AND C(»1H0N REFERENCES 


CWMON/DATAR/ 
COMMON/ PARTP4/ 
COMMON/ PARTP2/ 
COMMON/ GAPPA/ 
O»lM0N/SLIPPT/ 
COMMON/ONTSPT/ 


COMMON/ CONTRL/ 
COMMON/ FSTAG/ 
PFF 

INRSCT 

IimPFP 

PPATPT 


METHOD OF SOLUTION 


When the new data surface has been completed and it has been determined 
that a particle limiting streamline has crossed the plume boundary, the 
location of the intersection is determined by the intersection of a line 
passing through the old and new limiting streamline points. This establishes 
two interpolation factors. One along the limiting strecmlice and one along 
the plume boundary. Gas properties at the intersection point are interpolated 
for between the two plume boundary points and particle properties are 
interpolated for between the two limiting streamline points. The interpolated 
point and properties are then used as the plume boundary point for the new 
line, and the calculation for the next line is then initiated. 
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SUBROUTINE NAME; PRO 
DESCRIPTION 


This function computes the boundary layer flow property data storage 
location. This function returns the boundary layer flow properties from the 
PFPARY which is used as a working array In the particle trajectory tracing 
module. 

CALLING SEQUENCE 

= PRO(I,J,K,PFPARY) 

where I,J,K are indices used to determine the storage location in the PFPARY 
array. 

UTILITY ROUTINES AND COMMON REFERENCES 


None. 

METHOD OF SOLUTION 


This routine simulates a three-dimensional array. The boundary layer 
flow property storage location is computed using the following relation: 

IX = 1 + 14 * (J-1 + 15 * K-l);) 

and r^'tricved using the relation 

PRO = PFPARY(IX). 
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SUBROUTINE liAy’' - PRO? 

DESCRl'I IO? 

Tills subroutine uses subroutine HALL to calculate the gas properties at 
any point in the transonic region for a two-phase nozzle. 

CALLING SEQUENCE 

CALL PROP(I) 

where 


I =0 for the Initial call to ONED 
1 for subsequent calls 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/DATAR/ 
COMMON/NAKEA/ 
COMMON/NAME L/ 
C(»0!0N/NAMER/ 
COMMON/NAMES/ 


COMMON/NAMEX/ 
COHMON/NAMEY 
COMMON/ UBVB/ 
a»1MON/NAMEl/ 
COMMON/RWTD/ 


COMMON/ REMAP/ 
COMMON/PWl/ 
COMMON/ NAHEW/ 
COMMON/RZUl/ 
HALL 


METHOD OF SOLUTION 


See Section 5.6.62 of Ref. 7. 
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SUBROUTINE NAME : PDMBX 

DESCRIPTION 


This subroutine generates the input data required by the JANNAF 
Standard Plume Flow Field (SPF) program to start its solution at the exit 
plane of a rocket nozzle. 

CALLING SEQUENCE 

CALL PUNEX (PFPARY) 


where PFPARY is the array which normally contains particle property data for 
the old and new normals but is used as a temporary working routine by PUNEX. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CAPUR/ 
COMMON/CHEMCN/ 
COMMON/ CONTRL/ 
COMMON/CPMUK/ 
COMMON/ DATAR/ 
COMMON/GAPPA/ 
COMMON/ GASDAT/ 
C(»!MON/ISTKr/ 
COMMON/ PARTP2/ 
COMMON/ PARTP4/ 
COMMON/ PARTWT/ 


COMMON/TPEH/ 

C(»IMON/TRPRT/ 

COMMON/VISEX/ 

COMMON/ FISSS/ 

COMMON/VMIX3/ 

COMMON/SKIPPY/ 

COMMON/ SPECI/ 

COMMON/ SPEL/ 

ARASSL 

IDMPOP 

SPECIE 


METHOD OF SOLUTION 


The exit plane flowfield information at the exit plane has been 
previously stored by Phase 1 and SLSKIP on FORTRAN unit 12 during the 
inviscid nozzle solution. PUNEX reads the flow properties from unit 12 
orders the points from the axis to the lip and punches or reloads (on unit 
12) the SPF startline information. If no boundary layer is to be calculated 
and only Inviscid SPF startline data are required, then PUNEX will punch the 
SPF data in the proper format. If a boundary layer is to be generated by 
the BLIMPJ code then the SPF startline data is stored on FORTRAN unit 12 so 
that an invlscid/vlscous startline can be generated by subroutine BLEXIT in 
a subsequent RAMP execution. At the present time PUNEX will output data for 
any of the chemical systems specified in Volume I, Section 2, The 
viscosity, Prandtl number, single specie distributic''., particle specific 
heat, and particle density are output as exit plane mass flow averages. 

This can easily be changed to reflect increased capabilities of subsequent 
versions of the SPF code. PUNEX will output both single- and two-phase SPF 
startlines. 
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SUBROUTINE NAME ; RSADF 
DESCRIPTION 


The subroutine reads the gas and particle properties of a single normal 
from the flowfield output tape (Unit 3). This routine is used by the 
particle trajectory tracing module to load data necessary to specify 
particle properties at the edge of the boundary layer. 

CALLING SEQUENCE 

CALL READF (ITOT, J, LINE.PFPARY) 


whe re 


ITOT = the number of points on the normal which have 

been read. 


J 

LINE 

PFPARY 


the line indicator for the line just read (1 or 2) 

the number of normals that have been read from the 
flowfield tape 

the array in which the particle properites for each 
normal (line) is stored. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CHEMCN/ 
COMMON/ CONTRL/ 
COMMON/ CONVV/ 
COMMON/ DAT/ 
COMMON/EVERY/ 
CCMION/ITOTT/ 
COMMON/LIMIT/ 
COMMON/MET/ 
COMMON/ PRAD/ 
IDMPFP 


METHOD oF SOLUTION 


Not a^nlicable. 
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FUNCTION NAME; RGHOFP 
DESCRIPTION 


This subroutine finds Mach number as a function of pressure, 0/F ratio 
(or total enthalpy) and entropy. The difference between this routine and 
EMOFP is that in this case the gas properties are not known prior to entry. 

CALLING SEQUENCE 

EM = RGMOFP (0F,S,P,K2W1,K1W1) 

where EM is the resultant Mach number, P is the local static pressure, S is 
the local entropy, and OF is the local O/F ratit (or total enthalpy). 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 

ITSUB 

COMMON/GASCON/ 

VOFEM 

COMMON/ ISEa/ 

EMOFP 

COMMON/GASDAT/ 

ERRORS 

POFEM 

THERMO 

EMOFV 



METHOD OF SOLUTION 


The real gas tables have, as Independent variables, OF ratio (total 
enthalpy), entropy and velocity. If the velocity is not known, an iterative 
solution must be employed to find Mach number from pressure, entropy, and OF 
ratio (or total enthalpy). 
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FUNCTION NAME: RGVOFM 

DESCRIPTION 


This subroutine finds velocity as a function of Mach number, entropy 
and 0/F ratio (or total enthalpy). The difference between this routine and 
VOFEM is that the gas properties are not knoim prior to entry. 

CALLING SEQUENCE 


V = RGVOFM (0F,S,ei,K2W,KlW) 

where V is the resulcant velocity computed from 0/F ratio or total enthalpy, 
OF, entropj , S, and Mach number, EM. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 

TAB 

COMMON/ CHEMCN/ 

FOVEM 

COMMON/ GASDAT/ 

EMOFV 

COMMON/GASCON/ 

ITSUB 

THERMO 

ERRORS 


METHOD OF SOLUTION 


The real gas tables have, as independent variables, OF ratio (or total 
enthalpy), entropy, and velocity. If the velocity is not known, an 
iterative solution musf be employed to find the velocity from Mach number, 
OF ratio (or total enthalpy) and entropy. 
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FUNCTION NAME: RHOFEM 

DESCRIPTION 


RHOFEM computes the local density as a function of Mach number and 
entropy. 

CALLING SEQUENCE 

RHO = RHOFEM (EM,S,K1W1,K1W2) 

wehre RHO Is the resultant density found from local Mach number and local 
entropy. NOTE: The appropriate values of the gas properties must be stored 

In common upon entry to this routine. 

UTILITY RCU TINES AND COMMON REFERENCES 

COMMON/GASCON/ 

POFEM 

METHOD OF SOLUTION 


Thermally perfect gas relationships are used to find the density. 

-d/Y-1) 


(. . lii M^) 
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SUBROUTINE NAME: RITE 

DESCRIPTION 


This subroutine tells the program user (In no uncertain terms) that he 
has made a fatal error. The next executable statement Is a STOP. 

CALLING SEQUENCE 

CALL RITE(I) 

UTILITY ROUTINES AND COMMON REFERENCES 


None. 

METHOD OF SOLUTION 
Not applicable. 
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FUNCTION NAME: ROTERM 

DESCRIPTION 


ROTERM computes the geometrical factor, Fj.Fix, used in the 
axisymmetric term of the compatibility equation and as an interpolation 
parameter. 

CALLING SEC ,CE 

F = ROTERM (THETA, DELTA, EMU, R3,RI,K2W1,K2W2) 


where 


THETA is the flow angles of the known points (Oj or 9xi) 
DELTA defines the quadrant being considered 
EMU is the Mach angles of the known points (^lx or 
R3 is the coordinates of the new point (rm or X£XX) 

RX is the coordinate of the known point (rj or xj) 

UTILXTY ROUTXNES AND COMMON REFERENCES 


None . 

METHOD OF SOLUTXON 


The method-of-characteristics solution uses this routine to determine a 
coefficient nee-ied in its solution. This term (see Eq. (6.29), Section 6 of 
Ref. 4) can be written as: 

|siny I (djjj - d) 

^ sin(Tf/4 + 6(9 tt/A)) 

By the proper choice of d(r or x), 6 and the sign of u, indeterminant forms 
are eliminated in the evaluation. 
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SUBROUTINE NAME: SBTRTG 

DESCRIPTION 


This routine computes the gas total enthalpy for a case when finite 
rate chemistry is being used and the startline is to be generated by the 
program for gaseous flows only. 


CALLING SEQUENCE 


CALL SETHTG 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/VISEX/ 
COMMON/PCTC/ 
COMMON/ GASCON/ 
CmiMON/CHEMCN/ 
COMMON/ CUQIXX/ 


OmMON/LIPCOM/ 

C»filON/SIO!B/ 

(XNQION/GASDAT/ 

TKEY 

THERMO 


METHOD OF SOLUTION 


The routine interpolates for the flow properties at the specified 
startline Mach number using the equilibrium thermodynamic data tables. The 
resultant temperature and velocity are then used to obtain the flow 
properties from the species enthalpy and specific heat tables. The total 
enthalpy is calculated from the static enthalpy and velocity. This 
procedure is used to ensure property compatibility when transferring from 
the equilibrium tables to the species finite rate tables. 


c- ^ 
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SUBROUTINE N AME; SITER 
DESCRIPTION 

This routine deteroines the entrop^ of the gas knowing the velocity, 
static pressure and total enthalpy of 0/F ratio. 

CALLING SEQUENCE 

CALL SITER (HG,S,EM,V,PC,PL,1FLG,1CV) 

where 

HG is the known total enthalpy or 0/F ratio 
S is the gas entropy 

EM is the gas Mach nuober 

V is the known gas velocity 

PC is the gas total pressure 

PL is the known gas static pressure 
IFLG “ 0 Velocity is known on entering the routine 
= 1 Mach number is known on entering routine 
ICV = 0 routine has converged 
* 1 no convergence 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/GASCON/ 

EMOFV 

ITSUB 

POFEM 

THERMO 

RGVOFM 

METHOD OF SOLUTION 

This subroutine iterates on the gas entropy until the guessed entropy, 
kno%m velocity, and enthalpy results in a static pressure which are within 
the convergence criteria of the kno%ra static pressure. 
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SUBROUTINE NAME: SLDP 

DESCRIPTION 


This subroutine finds the solutions to a set of N simultaneous linear 
equations. 

CALLING SEQUENCE 

CALL SLDP(X,A,N) 


where 


X is the solution matrix 

A is the coefficient matrix 

N is the order of the coefficient matrix. 

UTILITY ROUTINES AND COIfllON REFERENCES 


None. 

METHOD OF SOLUTION 


The set of N simultaneous equations are solved using a Gauss-Jordan 
reduction scheme with the diagonal pivot strategy. 
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SUBROUTINE NAME: SLINT 

DESCRIPTION 


This subroutine detemlnes if a particle limiting streamline is 
sufficiently close to the upper boundary (nozzle wall or freu boundary) to 
specify that the limiting streamline has impinged on the wall or crossed the 
free boundary. 

CALLING SEQUENCE 

CALL SLINT(K,J1,PFPARY) 


where 

is the new line indicator 
is a 0 if no impingement is determined 
is a 1 if the limiting streamline has impinged the wall 
or passed through the plume boundary 
is the array which contains the particle properties 
at the old and new normal. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ CONTRL/ 

COMfON/DATAR/ 

COMMON/ FSTAG/ 

CO»fON/GAPPA/ 

COMMON/ PARTP2/ 

COMMON/ PARTP4/ 

COMMON/ TOTAL/ 

PPATPT 

SPCTX 

UOFEM 

METHOD OF SOLUTION 

If a particle limiting streamline is adjacent to the upper boundary and 
within 0.5 percent of the radial position of the boundary point then the 
particles are assumed to impinge on the boundary. The old limiting 
streamline point below the boundary point is deleted and the particle 
properties at the limiting streamline are assumed to apply at the upper 
boundary. Subsequent normals downstream of this point are assumed to have 
nrticles of this size group present and any mass hitting the boundary is 
assumed to stick to the wall or pass through a free boundary. If a boundc>ry 
layer solution is performed after the inviscid nozzle is calculated and an 
exit plane startline is to be generated with the boundary layer and particle 
trajectory tracing then the user can specify an accommodation coefficient 
which allows all or some of the impinged particle mass flux to be carried 
out into the plume solution. For more detail see Section 7.6 of Volume I. 


K 

J1 

PFPARY 
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SU BROUTINE NAME; SLSKIT 
DESCRIPTION 


This subroutioe saves the exit plane data for use in setting up the SPF 
startline. 

CALLING SEQUENCE 

CALL SLSKIP(IS,J,I,K,PFPARY) 


where 


(IS,J) is the streamline point on the old normal 
(I,K) is the corresponding streamline point on the new normal 
PFPARY is the array containing particle properties on the old (J) 
and new (K) normals. 

UTILITY ROUTINES AND OOMMOK REFERENCES 

COMMON/ CHEMCN/ 

COrSfON/CHEMXX/ 

COmON/CONTRL/ 

CGMfON/DATAR/ 

COmON/FSTAG/ 

COmON/GASDAT/ 

C0Itf0N/PARTP2/ 

DESCRIPTION 

>nce PHASEl has determined that a streamline has crossed the exit plane 
SLSKIF is called with the streamline points of the (IS,J) point upstream of 
the exit 'ilane and the (I,K) point downstream of the exit. The flow 
characteristics at the exit point are interpolated for and written on 
FORTRAN unit 12. The data on unit 12 will be used by other routines (PUNEX) 
vrhen the nozzle solution has been completed. 


C(MM0N/PABTP4/ 

C0tftl0N/PARIP4/ 

COMMON/ SKIPPY/ 

COMiON/TFLAG/ 

PFP 

SPCTX 

TEHTAB 
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SUBROUTINE NAME: SPACET 

DESCRIPTION 

This subroutine is used to space past the nozzle flowfield data on the 
flowfield data tape (Unit 3). 

CALLING SEQUENCE 

CALL SPACET(LIN) 

where LIN is the nunber of nonaals read from the flowfield tape to get to 
the exit plane of the nozzle. 

UTILITY ROUTINES AND COMMON REFERENCES 

O»0«)N/MET/ 

DESCRIPTION 


The routine is called only when an exit plane restart is being made 
using the data generated by a previous nozzle run and the boundary layer 
data generated by the BLIMFJ code. This routine is used to space past the 
nozzle data on the flowfield data file so that the plume data may be stored 
on the same file. 
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SUBROUTINE NAME; SPCTX 
DESCRIPTION 

This routine is used to retrieve and store the species mole fraction 

data. 

CALLING SEQUENCE 

CALL SPCTX(IFCN,1PT,ILINE,JLINE) 


where 

IFCN indicates to store data into the species array or to 

retrieve (=2) data from the species array and store it in a 
temporary array. 

IPT is the flowfield point number 
ILINE is the line number (1 or 2) 

JLINE specifies which temporary array location (SPCT(I,1) 
or SPCT(I,2)) to use to store or retrieve data. 

UTILITY ROUTINES AND COt«ON REFERENCES 

COHMON/CHEMXX/ 

COIflfON/CHEHCN 

COHHON/CONTRL/ 

COMMON/ SPEL/ 

DESCRIPTION 


The RAMP code uses a temporary array (SPCT(25,2)} for storage of the 
species mole fraction information for finite rate chemistry cases. This 
subroutine retrieves and stores information from/into a permanent array. 

When the routine is used to store information in the permanent array 
(SPE(I, IPT, ILINE)) it uses data from the SPCT(I, JLINE) array. When the code 
retrieves the information from the permanent array (SPE(I, IPT, ILINE)) it 
stores it in the temporary array (SPCT(I, JLINE)). 
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FUNCTION NAME: SPECC 

DESCRIPTION 

This function computes the species mole fraction storage locations from 
the array which contains the equilibrium chemistry thermodynamic results. 
This routine is used to determine the species mole fractions used in setting 
up the BLIMPJ input data by the boundary layer data generation module 
(BLMPIN). 

CALLING SEQUENCE 

= SPECC (I,J,K,L) 

where I,J,K,L are indices used to determine the storage location in the 
temporary SPECX. 

UTILITY ROUTINES AND COMMON REFERENCES 
COMMON/SPEL/ 

METHOD OF SOLUTION 


This function simulates a four-dimensional array. Species mole 
fraction data have previously been stored in a temporary array (SPECX) as a 
function of total enthalpy, entropy, velocity, and species name. The 
appropriate storage location for the mole fractions is computed using the 
following relation 

IX = 1 + 2 * (J-1 + 2 * (K-1 + 13 * (L-1))) 
and retrieved using the relation 
SPECC = SPECX(IX). 
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SUBROUTINE NAME; SPECIB 
DESCRIPTION 


This function determines the species mole fractions from the 
equilibrium thermodynamic data for use by the boundary layer input data 
module in setting up the BLIMPJ data for a equilibrium case. 

CALLING SEQUENCE 

CALL SPECIB (HOF,K,V,S) 


where 

HOF is the interpolation factor for the total enthalpy 

K is the equilibrium chemistry total enthalpy table number 
to be used in the interpolation 

V is the velocity at which the species mole fractions are desired 

S is the entropy at which the specie mole fractions are desired. 

UTILITY ROUTINES AND C(»1M0N REFERENCES 

CWIMON/CONTRL/ 

COMMON/GASDAT/ 

C(M10N/PARTP2/ 

COMMON/SPEL/ 

COMMON/ SPFK/ 

TOB 

SPECC 

DESCRIPTION 


This routine Is used by the boundary layer input data module to 
determine the species mole fractions as a function of total enthalpy, 
entropy and velocity. This routine is only required for equilibrium 
chemistry cases where the thermodynamic data come from the TRAN72 program. 
The routine locates where in the thermodynamic table to find the 
corresponding species mole fractions and retrieves them from an array in 
which they have been previously stored. 
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SUBROUTINE NAME: SPECIE 

DESCRIPTION 


This routine determines the species mole fractions and transport 
properties from the equilibrium thermodynamic data for use by the SPF input 
data module. 

CALLING SEQUENCE 

CALL SPECIE (INU,ISK,OF,S,V,PFPARY) 


where 


INU 

is 

ISK 

is 

0F,S,V 

is 


of 

PFPARY 

is 


are temporarily stored. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 
COMMON/CPMUK/ 
COMMON/DATAR/ 
COMMON/GAPPA/ 
COMMON/ GASDAT/ 


COMMON/ PARTP2/ 

COMMON/VISSS/ 

POP 

TAB 

THERMO 


DESCRIPTION 


This routine performs a function similar to SPECIE except that it is 
used by the SPF input data generation module (PUNEX). This routine 
determines the species mole fractions, and transport properties at each SPF 
exit plane startline point as a function of total enthalpy, entropy and 
velocity. This routine is only used for equilibrium chemistry cases where 
the thermodynamic data comes from the TRAN72 program. The routine locates 
where in the thermodynamic table to find the corresponding species mole 
fractions and transport properties, then it retrieves the data from the 
PFPARY in which the species mole fractions have been previously stored in 
the correct order for the particular SPF chemical system. This routine is 
entered with the enthalpy, entropy, and velocity whereas SPECIE is entered 
with the Interpolation factor for the total enthalpy, the total enthalpy 
table number, entropy, and velocity. SPECIE and SPECIE could be combined 
into a single routine, but for computer storage limitations and overlay 
requirements this has not been done. 
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SUBROUTINE NAME; START 
DESCRIPTION 


This routine determines the particle flow characteristics required to 
initiate the particle trajectory tracing through the boundary layer at the 
point where the particles enter the boundary layer. 

CALLING SEQUENCE 

CALL START (X, 1ST, I, PI) 


where 

X is the axial coordinate of the boundary layer edge where the 

particular particle trajectory is to start 

1ST is the particle size group number 

I is the particular trajectory number (1-10) 

PI is the array in which the particle flow properties are returned 
(V.9.H.T, p.y.X). 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ SPEL/ 

COMMON/ TRCDAT/ 

DESCRIPTION 


A set of tables defining the particle properties at the boundary layer 
edge as a function of boundary layer station position has been previously 
set up by the particle trajectory tracing module. The particle trajectories 
are not necessarily initiated at a boundary layer station position. This 
routine interpolates for the particle properties at the edge of the boundary 
layer using the axial coordinate of the penetration of the boundary layer to 
look up data. 
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SUBROUTINE NAME; STARTV 
DESCRIPTION 


This subroutine sets up the grid and initializes the single phase 
transonic solution. 

CALLING SEQUENCE 

CALL STARTV (PFPARY) 


where PFPARY is the array which normally contains particle properties but is 
temporarily used by the single-phase transonic module as a working array. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTRL/ 

BOUND 

OFSET 

COMMON/DATAR/ 

IBOUND 

OUTPUT 

COMMON/ GASCON/ 

IDMPHI 

PHI 

COMMON/ SPEL/ 

ITSUB 

POFEM 

COMMON/STSUV/ 

MASS 

RGVOFM 

AOASTR 

MAXT 

RHOFEM 


METHOD OF SOLUTION 


The routine is entered knowing the combustion chamber and nozzle 
contour, an overall O/F ratio, the 0/F distribution at the Initial transonic 
starting plane (normally the entrance to the convergent section of the 
combustion chamber), the axial position to start the transonic solution, the 
axial coordinate of the throat and an area ratio at which to terminate the 
transonic system. Also known are the thermodynamic properties of the 
system. The following steps are taken to initialize the single-phase 
transonic solution: 

Step 1: The mass flow of the motor is determined either as an input or 

using the overall 0/F ratio, the throat area (using the axial 
coordinate of the throat) and the requirement that the flow be 
sonic at the throat. 

Step 2; The axial coordinate of the downstream cutoff for the 

transonic module is determined using the input downstream 
cutoff area ratio or the default area ratio of 1.5. 

Step 3: The computational grid is set up in the Cartesian coordinate 

system. Ten solution stations are equally spaced up to and 
including the throat and the starting station. Downstream of 
the throat 17 equally spaced stations are set up out to the 
downstream station of step 2. At each axial station equally 
spaced points are set up including the wall and centerline. 
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Step A; The O/F ratio at each of the points on the upstream boundary 
surface is set using the input 0/F versus radial position 
distribution. Hie remaining flowtield points 0/F distribution 
is initially set the same as the initial data surface. The 
flow angle at each point is assumed to vary linearly from the 
axial to the nozzle wall at each station. 


Step 5: The remaining flow variables (P,T,V,H) are determined by 

Iterating using pressure (which is the independent variable 
used to look up temperature, velocity, molecular weight, and 
gamma from the thermodynamic tables) to force the mass flow 
through the particular data plane to match the mass flow 
calculated in step 1. The code is forced to take the 
appropriate solution (subsonic or supersonic depending on 
which side of the throat the initialization is taking place) 
for the pressure. 

Step 6; The maximum allowable time step for each point in the 

computational domain is then calculated using the following 
relation: 


DT = DTCUT * DR 

(M+l)^8 * a 

where 

DTCUT is the factor to cut step size (.2) 

DR is the radial distance between two mesh points 
M is the Mach number 
a is the sonic velocity. 


Step 7 : The maximum step size for the overall solution is then 

determined by using M/iXT to search for the smallest time step 
of al computational points. 

Note: The maximum number of radial points is 13(ICON(2)). 
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SUBROUTINE NAME: STOfOD 

DESCRIPTION 


This subroutine computes the gas thermodynamic properties In the 
transition flow regime. 

CALLING SEQUENCE 

CALL STGMOD(I.K) 


where 


I - the point number 
K - the line number 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/GASCON/ 

COMHON/FREE/ 

COMMON/GSV/ 

COMMON/ FSTAG/ 

COMMON/DATAR/ 

COMMON/TEMPER/ 

UTILITY - None 

METHOD OF SOLUTION 


The routine is entered knowing the flow regime, Knudsen number and flow 
properties (My,,T,P,V,j ,S,H,>) of the (I,K) point. The specific heat ratio 
is then determined based on the flow regime. 

Continuum - is the same as entered 
Vibrational mode frozen - Y is set to 1.4 

Rotational mode frozen - Y is set based on a curve fit of gamma 
from 1.4 (vibrationally frozen) to 1.667 (free molecular) based 
on Knudsen number 

Translationally frozen (free molecular) - Y = 1.667. 

Once the local gamma is determined then the local static properties, T, P, 
and V, are used to determine the local total conditions (T^,Pq) and Mach 
number. While provisions are made for handling transitional flow at the 
present time this routine is called only for translationally frozen flow. 
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SUBROUTINE NAME: STLIME 

DESCRIPTION 


This routine stores the lo^mt gaseous properties of startline fro« a 
teaporary array used by the input nodule into the pemanent array used by 
the flowfield coaputational nodule. 

CALLING SEQUENCE 

CALL STLINE 

UTILITY ROUTINES AND COMION REFERENCES 

COmON/CONTRL/ 

COHHON/DATAR/ 

COM* ON/ INPUT/ 

METHOD OF SOLUTION 


Not applicable. 
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SUBROUTINE NAME; STRMOS 
DESCRIPTION 


This subroutine handles Che calculation of the flow properties of the 
point in question. The following cases are considered: 


1. Interior point, uses I- and ll-characteristic 

2. Lower solid boundary point, uses 1-characteristic 
I. Upper solid boundary point, uses ll^haracteristlc 

4. Lower free boundary point, uses 1-characteriscic 

5. Upper free boundary point, uses ll-characteristic 


(ITYPE - 11) 
(ITYPE * 21) 
(ITYPE = 22) 
(ITYPE = 31) 
(ITYPE « 32) 


Except those ITYPE nuvbers shown above, soaetioes, one of the folloiring 
nuabers (300, 600, 70G. 800, 900) is added to the original nuaber to 
cran*:aic sore inforaation to this subroutine. 


CALLING SEQUENCE 

CALL STRNOR (I1,K1,IS1,JS1,IN1,KN1,IFLAG,ITYPE,K1H1 ,K1H2) 


where 


II, K1 is Che storage location in the PHO array for the point in 
question un the new noraal (R-Iine) 


IS1,JS1 is the storage location in the PHO array for the known 

reference point on Che old noraal (J-line); noraally this 
point is on tbe saae streaaline as the point II, KI 

INI,KN1 is the storage location in the PHO array for the known point 
II, Kl on the new noraal (K-Iine) 

IFLAG is a control indicator for sending in and out necessary 
aessages 

ITYPE denotes the type of point to be calculated. 


UTILITY ROUTINES AND COMHON REFERENCES 


C0}Df0N/FREE/ 

COMMON/STEPC/ 

PPATPR 

COMMON/ ISEA/ 

COMMON/ AVPROP/ 

FNEWTN 

COmON/CUEMCN/ 

C0HM0N/PARXP4/ 

INRSCT 

COMMON/ CHEMXY/ 

COMMON/ PARTP2/ 

GAPPBI 

COMMON/CPSV/ 

CmMON/GAPPA/ 

PUYSOL 

COMMON/LIPNT/ 

C0MM(Mi/0NTSFi7 

SPCTX 

C0MM0N/VM1X3/ 

COMION/POlNiC/ 

PFP 

C0MM0N/AVPRP2/ 

COMMON/NSF/ 

RGNOFP 

COMMON/CAPUR/ 

COmON/OVERLA/ 

C0EFF3 
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COIMON/LIPFX/ 

COMtON/CPmJK/ 

ROTERM 

COMMON/CONTRL/ 

COMfON RUE/ 

SLPLIN 

CQIMON/CRITER/ 

COMfON/CHEMXX/ 

NEUENT 

COMMON/ OATAR/ 

COMMOM/TUIPA/ 

UOFV 

COMIOH/DROP/ 

COMION/GLOBAL/ 

VOFEN 

COMfON/ GASCON/ 

COmON/PSEC/ 

COEFEQ 

COIMON/PHISOL/ 

COICION/lllTEU/ 

CHECK 

COMWN/SLIPPT/ 

COMION/PARSTU/ 

VMODEL 

CO(tfON/TE!V02/ 

OOMfON/FSTAG/ 

EMOFV 

COMfON/TOTAL/ 

BOUND 

SITER 

COmON/CP'^S/ 

IDMPFP 



METHOD OF SOLUTION 


Initially the flow properties of the point in question are assuaed to 
be the sane as those of the known upstreaa point on the saae streaaline, and 
its location is found by intersecting the average streamline from the 
reference point (ISl.JSI) on the J-Line and the average normal from the 
known point (IN1,KN1) on the R-line. Subroutine PUYSOL is used to find the 
reference properties for the characteristic lines and Eq. (4.133a) and 
(4.100) of Vol. 1 are then used to calculate velocity and flow angle for the 
new point. 

The iterative method is employed to find the velocity and the flow 
angle until they do not change appreciably between the successive 
iterations. During this iteration, the location of the new point is 
perturbed. 
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FUMCTIOW NAME: TAB 

DESCRIPTION 

this funcCloo coaputes the theraodyoaBic data storage location and 
retrieves data froa the TABB array. 

CALLING SEQUENCE 

* TAB (I,J,K,L) 

where 


I,J,R,L are the indices which are used to deteraine the storage 
location 

UTILITY ROUTINES AMD COWiON REFERENCES 

COmON/GASDAT/ 

UTILITY - None 

NETUOD OF SOLUTION 


This routine siaulates a four-diaensional array. The theraodynaaic 
data storage location is coaputed using the following relation 

IX - I + 10 * (J-1 + 2 * (K-1 + 13 * (L-1)):, 

and retrieved using the relation 

TAB » TABB(IX) 
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SUBROUTIHE HAME; tAPMOV 
DESCRIPTION 


Ttiis routine spaces past the header, thenaodynaaic data, and particle 
thetaodynaaic data on the flowfield data file (unit 3). This routine is 
used by the particle trajectory tracing aodule to get to the beginning of 
the floirfield data on the output tape. 

CALLING SEQUENCE 

CALL TAPNOV 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ CONTRL/ 

CQMMON/IffiT/ 

METHOD OF SOLUTION 

The header and transport data are read froa unit 3 until the flowfield 
data are reached on the file. 
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SUBROUTINE NAME: TKMTAB 

DESCRIPTION 


This subroutine will perfom a table lookup for particle temperature as 
a function of enthalpy or for particle enthalpy as a function of temperature. 

CALLING SEQUENCE 

CALL TEMTAB(X,Y, WHICH) 


Khere 

X is the unknown variable 
Y is the known variable 

WHICH is the lookup control variable indicating to lookup 
temperature (=1) or enthalpy (=2). 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ CONTROL/ 

COHMON/TPEH/ 

COJMON/TFLAG/ 

UTILITY - None. 

METHOD OF SOLUTION 

The unknown variable (particle temperature or enthalpy) is calculated 
by either assuming constant heat capacities or by applying linear 
interpolation techniques to the tabulated data input on cards 33. 
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SUBROUTINE NAME: THERMO 

DESCRIPTION 


This subroutine utilizes real or ideal gas information obtained from 
the flowfield tape (or tables) and a local 0/F ratio (or total enthalpy^ to 
call subroutine FABLE to calculate thermodynamic gas properties locally in 
the flow. 

CALLING SEQUENCE 

CALL THERMO (OF.SS.VV) 

idle re 

OF gas total enthalpy or O/F ratio 
SS » gas entropy 
VV = gas velocity. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/GASCON/ 
COMMON/ CPHUK/ 
aXOfON/GRlNT/ 
COMMON/ PARTP4/ 
COIMON/PARTP2/ 
COMMON/ GAS DAT/ 


CCMION/FAB/ 

COtfliON/CONTRL/ 

COMMON/VLTM/ 

TAB 

FABLE 

TUERMl 

THERMV 


METHOD OF SOLUTION 


The routine is entered with the local O/F ratio (or total enthalpy), 

OF, entropy, SS, and velocity, VV. The local ratio is used to determine 
which set of thermodynamic tables that subroutine FABLE should use to 
perform table lookup of the local thermodynamic gas properties. Subroutine 
THERMO then uses the local thermodynamic gas properties obtained from FABLE 
to perform an interpolation between the O/F (or total enthalpy) tables based 
on the local O/F ratio (or total enthalpy). If a finite rate case is being 
calculated then THERMl is called to compute the local thermodynamic gas 
properties. This routine also checks to see if the velocity which is 
entered is beyond the limiting velocity of either of the two tables bounding 
in local O/F ratio (or total enthalpy). If the limiting velocity is 
exceeded the THERMV is called to calculate the local thermodynamic gas 
properties. 
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SUBROUTINE NAME: THKRMT 

DESCRIPTION 

This routine determines the gas thermodynamic properties for the single 
phase transonic module. 

CALLING SEQUENCE 

CALL THERKT 

UTILITY ROUTINES AND COMMON REFERENCES 

COMHON/DATAR/ 

C(»1M0N/GASDAT/ 

METHOD OF SOLUTION 


This routine performs the same function as THERMO and is used to 
determine the local thermodynamic properties of the gas. Unlike THERMO 
which uses 0/F (or total enthalpy), S and V to look up thermo data, THERMT 
uses 0/F (or total enthalpy) and pressure to look up the thermo data. The 
thermodynamic tables which are used by THERKT are the same as those used by 
THERMO except they are organized so that pressure is the dependent variable. 
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SUBROUTINE NAME: THBRMV 

DESCRIPTION 


This routine determines the gas thermodynamic properties for 
equilibrium chemistry cases for which the local velocity has been found to 
exceed the limiting velocity of either of the two tables used to determine 
the gas thermodynamics. 

CALLING SEQUENCE 

CALL THERMV(0F,S,VV,S1,S2) 


where 

OF = gas total enthalpy or 0/F ratio 
S = gas entropy 
V = gas velocity 

51 = reference entropy level of first (high total pressure) entropy 

table at the local OF 

52 = reference entropy level of second (low total pressure) entropy 

table at the local OF, 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ CONTROL 

COMMON/CPMUK/ 

COMMON/ GASCON/ 

COMMON/GASDAT/ 

COMMON/MOL/ 

C(M1MON/PARTP2/ 


COMMON/TEMTER 

COMMON/VLIM/ 

COMMON/ VTRY/ 

EMOFV 

POFEM 

TOFV 


METHOD OF SOLUTION 


The RAMP code like the MOC (Ref. 12) code uses precalculated tsbles of 
gas thermodynamic data which are generated by the TRAN72 program. The use 
of these tables is explained in i^pendix A of Volume I and Ref. 13 (MOC). 

The tables are generated for specific 0/F ratios (or total enthalpy) and 
entropy levels (total pressure). Each table is made up of a series of 
velocity entries corresponding to points on an isentroplc expansion from the 
total conditions for the particular table. At each velocity in the table 
the thermodynamic properties are tabulated. Since there are limitations to 
how many tables of 0/F ratio (10) and entropy (2) which can be handled by 
the program it is possible that the local gas velocity might exceed the 
limiting velocity of one of the tables being used for the interpolation. 
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Subroutine THERMV is used when a gas limiting velocity is exceeded. 
Subroutine THERMO calculates local properties for each individual table at 
the entered velocity, then calculates the equivalent total conditions. 

THERMT calculates total conditions for the last entry of each table then 
Interpolates for total conditions at Che desired 0/F (or enthalpy) for each 
entropy table. The local thermodynamic properties at each entropy table are 
Chen calculated. Another interpolation is performed based on Che entropy 
level to get the local thermodynamic properties for the entered 0/F, S, and 
V. Finally, total conditions corresponding to the particular state of the 
gas (T, P, 0/F, S, V) are calculated for use by other portions of the 
program. 
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SUBROUTINE NAME; TUERMl 
DESCRIPTION 


This routine determines the gas thermodynamic properties for a finite 
rate chemistry case. 

CALLING SEQUENCE 

CALL THERMl(HT.V) 


where 


HT is the gas total enthalpy 
V is the gas velocity. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/TEMPER/ 

COMMON/GASCON7 

COMMON/ PCTC/ 

COMMON/CPMUK/ 

COMMON/ CONTRL/ 

COMMON/ VISEX/ 

COMMON/ CHEMCN/ 

COMMON/CHEMXX/ 

COMMON/GAS DAT/ 

TKEY 

TOFH 

METHOD OF SOLUTION 


The routine looks up enthalpy and specific heats from tabulated data of 
enthalpy and specific heats as functions of temperature. The enthalpy, 
specific heats and molecular weights of each species are used, along with 
species concentrations, to calculate the mixture gas constant, gamma, 
enthalpy, specific heat, total pressure, and temperature. These properties, 
along with velocity are used to calculate total enthalpy and Mach number. 
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SUBROUTINE NAME; THBTPM 
DESCRIPTION 


THETPM parforms a numerical integration to calculate properties through 
a Prandtl-Meyer expansion. Either the case of known final velocity or known 
final expansion angle may be handled. 

CALLING SEQUENCE 

CALL THETPM (0F,S,DELTA,VF,CI,IT,I’^YPE,K1W,K2W) 


where 

OF is the local 0/F ratio or total enthalpy 

S is the local entropy level 

DELTA is the total expansion angle 

VF is the final velocity downstream of the expansion 

VI is the initial velocity upstream of the expansion 

IT is a control parameter indicating if expansion to a solid 
wall or free boundary is taking place 
ITYPE Indicates if an upper (2) or lower (1) boundary is being 
considered. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/GASCON TOFH 

COMMON/STEPC/ ITSUB 

COMMON/ CONTRL/ TOFV 

THERMO ERRORS 


METHOD OF SOLUTION 

The Integral equation 

J v»^ - I ^ ■ HVf) • 0 

V, 


where M^ “ V^/yRT is solved knowing either the final velocity, Vp, or 
the expansion angle (A6). As can be seen, if the final velocity, Vp, is 
known, the integration progresses straightforwardly to a solution. However, 
if the expansion ar^le is known, an iterative procedure must be employed to 
pick the velocity which produces the desired expansion angle. 
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SUBROUTINE NAME; THRUST 
DESCRIPTION 


THRUST computes the vacv .a thrust produced by a two-dimensional or 
axisymmetric nozzle. Mdition of the thrust at the throat and the 
Integrated pressure along the nozzle wall yields the final thrust. 

CALLING SEQUENCE 

CALL THRUST (L,K,11,J1, ITYPE, 1CALC,K1W1,K1W2,PF?ARY) 

where L,K designates the unknown characteristic point and 11, J1 is the 
known characteristic point. ITYPE specifies if the point is on the upper or 
lower boundary and ICALC is a counter with the values of 1, 2, or 3. (1 

specifies integration at the throat, 2 - along the nozzle and 3 - at the 
exit.) PFPARY is the array which contains particle properties on the old 
and new normals. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/CONTRL/ 

COMMON/DATAR/ 

COMMON/FORCE/ 

C0MM0N/PARTP4/ 

COMMON/ PARTP 2/ 

COMMON/FSTAG/ 

METHOD OF SOLUTION 

Thrust is found by first computing the (gas and particle) momentum 
thrust in the sonic area or throat of the nozzle. The static pressure is 
then Integrated along the nozzle wall and the total thrust found by suounlng 
of the pressure and momentum terms (both gas and particle). Inclusion of a 
factor in the Incremental force term accounts for either two-dlmenslor.' ^>r 
axisymmetric flow. 


COMMON/WT/ 

COMMON/ PSLD/ 

COMMON/ INTCR/ 

COMMON/TRPRT/ 

PFP 

VEMAG 
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SUBROUTINE NAME: TKKY 

DESCRIPTION 


This routine detenclnes the proper index to be used in the enthalpy and 
specific heat tables and calculates Interpolation factors. 

CALLING SEQUENCE 

CALL TKEY (T,TTB,ITKEY,SDT,HDT,NT) 


where 


T = the temperature 

TTB = the temperature tables used as independent variables 

ITKEY = the resu’*ant index 

SDT and UDT » interpolation factors 

NT = number of entries in the temperature table. 

UTILITY ROUTINES AND COMMON REFERENCES 


None. 

METHOD CF SOLUTION 


The routine searches the temperature table until the input temperature 
is bounded. The index of the lower bound is stored in ITKEY and the 
interpolation factors are calculated by the equations 


SDT 


T - TTB (ITKEY) 

TTB (ITKEY + 1) - TTB (ITKEY) 


and 


HDT * TTB (ITKEY + 1) - T 

TTB (ITKEY + 1) - TTB (ITKEY) 
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rJNCT I ON NAME: TOFEM 

DESCRIPTION 

TOFEM coaputes the local static t€»perature as a functioo of Mach 
nuaber. TOFEM and TOFV are quite similar; the difference being if Mach number 
or velocity is the knovn quantity. 

CALLING SEQUENCE 

T = TOFEM (EM,KlHl,RiW2) 

where T is the one-diaensiooally calculated local static teaperature which 
exists at the Mach nuaber, EH. NOTE: The appropriate values of the gas 

properties must be stored in coaaon upon entry to this routine. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/GASCON/ 

UTILITY - None. 

METHOD OF SOLUTION 

The thermally perfect gas relationships are used to find the static 
temperature at the local Mach number. 


T 


T 

o 


1 + 


Y-1 J- 
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FUMCTIOM NAME: TOmm 

DESCRIPTION 


This rouCiae calculates the teaperature as a fuDCtion of enthalpy for a 
finite rate chemistry case. 

CALLING SEQUENCE 

= TOFENH(HU) 


where HU is the static enthalpy. 
UTILITY ROUTINES AND COIMON REFERENCES 


COWfON/GASCON/ 

COWfON/PCTC/ 

COItfON/CTMUK/ 

COmON/VISEX/ 

COMfON/CHQfCN/ 

COmON/CUEHX/ 

CONHON/GASDAT/ 

TKEY 

ITSUB 

METHOD OF SOLUTION 


The teaperature is estimated Initially and this teaperature is used to 
calculate an enthalpy froa the teaperature-enthalpy tables. If the resultant 
enthalpy does not match HU, the teaperature is incremented and the process 
repeated until tne enthapies converge. 
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FUNCTION WARE: TOPE, TAPE* 

DESCRIPTION 


This routine calculates the teaperature as a function of enthalpy for » 
finite rate chenistry case during a Prandtl-Neyer expansion. 

CALLING SEQUENCE 

= TOFH (HU,V) 

= TAFH (HU.V) 


where 

HU is the enthalpy 
V is the velocity- 


UTILITY ROUTINES AND COMMON REFERENCES 


COMNON/TEMPER/ 

COMfON/GASCON/ 

COtMON/PCTC/ 

COHMON/CPMUK/ 

COMHON/VISEX/ 

CttifON/CHEMCN/ 

COtMON/CHQlXX/ 

COmON/GASDAT/ 

TKEY 

ITSUB 

POFH 

METHOD OF SOLUTION 

The aethodology is the saae as for TOFENU except that the gas constant, 
■olecular weight, gaoaa, and Mach nuaber are also coBfmted. 


TOFH and TAFH are the saae routine but are included as two separate routines 
in the program because of overlay requirements and the need to keep the core 
requirements as small as possible. 
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FUNCTION MAME: 
DESCRIPTION 


This function coaputes the local static teaperature as a function of 
velocity. TOFV and TOFEM are quite siailar; the difference being if Nach 
nmber or velocity is the known variable. 

CALLING SEQUENCE 

T = TOFV (V,K1W1,R1W2) 

where T is the local static teaperature tifaich exists at the velocity, V. 
NOTE: The appropriate values of the gas properties aust be stored in comnon 

upon entry to this routine. 

UTILITY ROUTINES AND COMMON REFERENCES 

COmON/GASCON/ 

RITE 

ERRORS 

KDCOFF 

METHOD OF SOLUTION 

The thermally perfect gas relationships are used to find the static 
teaperature at the local velocity. 


T . T 

o 



LOCKHEED-UUNTSVILLL RESEARCH & ENGINEERING CENTER 


LHSC-HREC TR D867400-I1 


SUBROUTINE NAME: TRACE 


DESCRIPTION 


This subroutine is used by the two'-phase transonic module to integrate 
particle trajectories through the nozzle throat. 

CALLING SEQUENCE 


Call TRACE. 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/DRAG/ 

COIMON/DATAR/ 

CONHON/NAMEL/ 

COMfON/NAMEM/ 

C(»«M>N/NAMEQ/ 

COMHON/NAMER/ 


COMMON/NAMES/ 

COififON/NAIffiX/ 

COMMON/NANEY/ 

COMMON/NAHEA/ 

CmOfON/RZNl/ 

PROP 


DESCRIPTION 


See Section 5.6.81 of Ref. 7. 
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SUBROUTINE NAME: TRACE? 

DESCRIPTION 


This routine solves the equation of notion of a particle along with its 
theraial response. This routine is used by the particle trajectory tracing 
nodule to trace particle trajectories through the nozzle boundary layer and 
predict the particle flow properties which exist at the nozzle exit plane in 
the boundary layer. 

CALLING SEQUENCE 

CALL TRACEP (P1,P2,RP,RH0P,DT,EP,ACC,XEND,PFRARY) 


where 


PI array which contains the particle flow characteristics and 

location at the edge of the boundary layer 
P2 array which contains the particle flow characteristics and 

location in rhe boundary layer at the exit plane of the nozzle 
RP particle radius 

RHOP particle mass density 

DT integration time step 

EP particle emisslvity 

ACC particle accomodation factor 

XEBD axial location of exit plane of nozzle 

PFPARY particle property array which is temporarily used to store the 
spatial variation of boundary layer properties along the nozzle 
wall. 


UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ SLOW/ 
DRAGCP 
DRAGMR 
GAS 
TEMTAB 

METHOD OF SOLUTION 


COMMON/ CHOCK/ 
COMMON/ CONW/ 
COMMON/DRAGCF/ 
COMMON/FIND/ 
COMMON/ SAVE/ 


This routine is called with the location and properties of a given 
particle size at the edge of the nozzle boundary layer. The equations of 
motion and energy equations are solved as the particle trajectory is traced 
through the known boundary layer flow field up to the exit plane of the 
nozzle. The routine also keeps track of which particles, which trajectory and 
where any nozzle wall Impingement takes place. The properties of the particle 
at Che exit plane or point of impingement on the wall are returned to the 
calling routine. 
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SUBROUTINE NAME; TRANS 
DESCRIPTION 


This subroutine provides overall control for initializing the data and 
reading the namelist data for the Kliegel two-phase transonic solution of a 
supersonic gas particle start line. 

CALLING SEQUENCE 

CALL TRANS (NTAPE.N SETS, RUT) 


where 

irTAPE » FORTRAN unit on which the startline is written 
N^TS = number of startline points where particles are present 
RUT = throat radius (ft). 

UTILITY ROUTINES AND COMMON REFERENCES 


CC»®M)N/CONTRL/ 

COMMON/GASDAT/ 

C(X1H0N/GASC0N/ 

COMMON/CPMUK/ 

OMmON/TPEH/ 

COMHON/MASSC/ 

C(»1M0N/DRAGCF/ 

C0MM0N/PARTP2/ 

COMHON/ERR/ 

COMMON/NAME A/ 

COMMON/NAMEl/ 

COMMON/NAMEW/ 

C(»1M0N/HUL/ 


C(»1M0N/PCTC/ 

COMHON/VISEC/ 

COMMON/ VSON/ 

COMMON/DATAR/ 

COMHON/NAMER/ 

COMMON/NAMEX/ 

COMHON/NAMEQ/ 

COMMON/NAMEL/ 

C(»1M0M/DRAG/ 

COMHON/R2U1/ 

C(M10N/RNTD/ 

TAB 

PARTIL 

THERMO 


METHOD OF SOLUTION 
Not applicable. 
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SUBROUTINE NAME: TURN 

DESCRIPTION 


TURN solves for a shock wave which has a known turning angle (6). A 
condition of known turning angle exists when the flow is turned through a 
compression corner on a solid boundary. Real gas effects are considered in 
calculating conditions downstream of the shock. 

CALLING SEQUENCE 

CALL TURN ( PU, PD, DELTA, I FLAG, KIWI, K1W2) 

where PU,PD represent flow conditions upstream and downstream of the shock, 
DELTA is the turning angle, and IFLAG Indicates if the solution will or will 
not converge. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/BOMOUT/ 

COMMON/ CRITER/ 

COMMON/CONTRL/ 

THERMO 

EMOFV 

UOFEM 

ESHOCK 

ITSUB 

ERRORS 

UOFV 

METHOD OF SOLUTION 


An initial shock angle is asstimed. This shock angle is used to 
calculate a turning angle. The calculated turning angle is compared to the 
known turning angle and successive iterations on shock angle are performed 
until the turning angle difference is sufficiently close to zero. 
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FUNCTION NAME; UOFBM 
DESCRIPTION 


This function computes the local Mach angle as a function of local Mach 
number. Prior to the calculation, a test is made to ensure that the Mach 
number is greater than one. 

CALLING SEQUENCE 

EMU = UOFEM (EM,K1W1,K1W2) 

where EMU is the Mach angle which exists at the local Mach number, EM. 

UTILITY ROUTINES AND COMMON REFERENCES 

C(»lMON/BOMOUT/ 

FPRORS 

K_‘OFF 

RflE 

METHOD OF SOLUTION 


The following equation is solved for the local Mach angle. 

U = tan ^ i ■ - ■ — — ^ • 

VV» - 1/ 


5-171 

LOCKHEED-HUNTSVILLE RESEARCH & ENGINEERING CENTER 




LMSC-HREC TR D867400-II 


FUNCTION NAME; UOFV 
DESCRIPTION 

This function computes the local Mach angle as a function of local 
velocity. 

CALLING SEQUENCE 

EMU = UOFV (V,K1W1,K1W2) 

where EMU is the Mach angle which exists at the local velocity, V. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/BOMOUT/ 

UOFEM 

EMOFV 

METHOD OF SOLUTION 


The local velocity Is converted into a Mach number using EMOFV. 
Function UOFEM is then entered with the calculated Mach number. The Mach 
angle is obtained from the following equation. 
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FUNCTION NAME; VEMAG 
U ESCRIPl’ION 

VEMAG determines the magnitude of a vector. 

CALLING SEQUENCE 
= VEMAG(V) 

where V is any vector. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON - None 
DOTPRD 

METHOD OF SOLUTION 

The following equation Is solved for the magnitude of a vector 

VEMAG = ^V(l)2 + V(2)2 

where 

-Jfc 

V = V(l) 1 + V(2) j . 
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FUNCTION NAME; VOFEM 
DESCRIPTION 


This function computes velocity as a function of Mach number. 

CALLING SEQUENCE 

V = VOFEM (EM,K1W1,K1W2) 

where V is the local velocity which corresponds to the local Mach number, EM. 
NOTE: The appropriate values of the gas properties must be stored in common 

upon entry to this routine. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/GASCON/ 

TOFEM 

METHOD OF SOLUTION 


The thermally perfect gas relationship 



is solved for velocity. Local static temperature, T, ij obtained from the 
input Mach number. 
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SUBROUTINE NAME: WALPRP 


DESCRIPTION 


This subroutine determines the distribution of points along the nozzle 
wall which will be used as boundary layer solution stations for the BLIMPJ 
code. 

CALLING SEQUENCE 
CALL WALPRP 

UTILITY ROUTINES AND COMMON REFERENCES 
COMMON/WALPR/ 

METHOD OF SOLUTION 


This routine uses the nozzle wall points and associated pressure 
distribution to establish the solution stations and pressure distribution 
which will be used by the boundary layer Input module. 

The nozzle wall Is described using 34 stations. The first station in 
the nozzle wall point on the startline and the last point Is the nozzle 
lip. The next three points are specified £.t distances away from the 
preceding point on the nozzle of l/200th, 1/lOOth, and l/50th of the 
distance from the first to the last points on the nozzle wall. The 
remaining points are equally spaced along the nozzle out to the lip. The 
appropriate flow properties that the boundary layer Input module requires 
are Interpolated from the Invlscld nozzle wall results. This point 
distribution was chosen because It produced the best results for all casec^ 
that hav- been run using the boundary layer option. 
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SUBROUTINE NAME: UDGI 


DESCRIPTION 


This subroutine integrates along the initial two-phase supersonic 
startline for the mass flow by trapezoidal rule. 

CALLING S~^QUENCE 


CALL WDGI 

UTILITY ROUTINES AND COMMON REFERENCES 


COMMON/ DATAR/ 

COHMON/NAMEL/ 

COMMON/NAMEM/ 

COMMON/NAMES/ 

COMMON/RZWl/ 

PROP 

METHOD OF SOLUTION 


See Section 3.6.87 of Ref. 7. 
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SUBROUTINE NAME: HEAR, HEKK* 

DESCRIPTION 

This subroutine deteraines the Independeat variables, entropy and 
velocity, SD, VD, downstreaB of a weak oblique shock. The gas properties 
upstream of the shock are known prior to entry. 

CALLING SEQUENCE 

CALL WEAK (0F,SU,VU,EPS,DELTA,SD,VD,K1»,K2W) 

where OF is the upstream 0/F ratio (or total enthalpy), SU,VU are the 
upstream entropy and velocity, EPS, DELTA are the shock angle and turning 
angle, and SD,VD are the domstream entropy and velocity. 

UTILITY ROUTINES AND COHMON REFERENCES 

COMMON/ GASCON/ 

THERMO 

EMOFV 

POFEM 

RHOFEM 

ENTROP 

DELTAF 

METHOD OF SOLUTION 


From the knom upstream entropy and velocity, the local gas properties, 
pressure, density, and upstream Mach number are calculated. The entropy 
rise across the shock is added to the upstream entropy to get total 
downstream entropy. Downstream velocity is calculated from the following 
relationship. 


Vj, cos(5) 

V ■ — 

D cos (^-5) 


WEAK and WEKK are the same routine but are included as two separate 
in the program because of overlay requirements and the need to keep 
requirements as small as possible. 


routines 
the core 
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SUBROUTINE WAHE: UG 

DESCRIPTION 

This subrouCine decodes the pressure, velocity, O/F ratio aod density at 
each point in the single phase transonic laodvie. 

CALLING SEQUENCE 

Call UC 

UTILITY ROUTINES AND COMMON REFERENCES 
COMMON/ DATAR/ 
tCTdOD OF SOLUTION 
See Ref. 14. 
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FUMCTION NAME: IKffA 

DKSCKieriON 


WOFA coaputes the weight flow per wait area as a function of Mach 
nuaber. This calculation is used only in function aOASTR. 

CALLIMG SEQUENCE 


Weight Flow >> WOFA (EM,K1W1,K1W2) 

where Q1 is the local Mach nuaber. NOTE: The appropriate values of the gas 

properties aust be stored in conon upon entry to this routine. 

UTILITY ROUTINES AMD COMMON REFERENCES 

COMfON/ GASCON/ 

UTILITY - None 


METHOD OF SOLUTION 


Weight flow per unit area, W/A, is calculated froa the theraally perfect 
gas relation. 


W 

A 



P M 
o 


1 + 


'• -1 2 


-lIL. (* 

20 - 1)1 
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SOBROUTINE NAME: HRITP 

DESCRIPTION 


This subrout iae prints out a header and suomarlzes the particle flow 
properties as they enter the nozzle boundary layer as well as at the exit 
plane of the nozzle in the nozzle boundary layer. 

CALLING SEQUENCE 

CALL HRITP(IWR) 


where 


lUR = 1 print out particle properties at entrance to boundary layer 
= 2 print out particle properties in boundary layer at exit plane 
of the nozzle 

UTILITY ROUTINES AND COMMON REFERENCES 

COMHON/CONVV 

CmiMON/GAPPA/ 

CnOfON/HITUAL/ 

C(»fMON/IPHX/ 

IDMPDT 

PDT 

METHOD OF SOLUTION 


Not applicable. 
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FUNCTION NAME; HTFLOF 
DESCRIPTION 


This function cooputes the area normal to the flow which is bounded by 
two streamline points. 

CALLING SEQUENCE 


= VTTFLOF (M,N,K,A) 


tdiere 


M = the point number of the lower streamline point 
N - the point number of the upper streamline point 
K » the line number 

A - a 1 for axlsymmetric flow and a 0 for two-dimensional flow. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/DATAR/ 

COMMON/ CONTRL/ 

UTILITY - None 

METHOD OF SOLUTION 


The area bounded by two points and normal to the average local flow 
vector is calcualted via geometric relations. 
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SUBROUTINE NAME; NTFLOP 
DESCRIPTION 


This routine is used by the particle trajectory tracing module to 
calculate the particle density distribution in the boundary layer at the exit 
plane of the nozzle. 

CALLING SE(yjENCE 

CALL WTFLOP (IPMAX) 

where IFMAX is the number of particle size groups which penetrate the boundary 
layer. 

UTILITY ROUTINES AND COMMON BLOCKS 

COMMON/ ACOM/ 

C(»010N/C0NTRL/ 

COMMON/GAPPA/ 

COMMON/HITWAL/ 

COMMON/ PARTP 2/ 

CC»!MON/TRCDAT/ 

PDT 

IDMPDT 

METHOD OF SOLUTION 


A mass flow balance is performed for each two consecutive particle 
trajectories to determine the density at each trajectory point at the exit 
plane of the motor. Any particle mass which impinges on the nozzle wall is 
applied to the nozzle lip point using a user input accommodation coefficient 
and an average particle velocity and temperature. 
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SUBROUTINE NAME: WTT 

DESCRIPTION 

This routine is used by the single phase transonic module to solve for 
pressure, velocity, and 0/F ratio at each new point. 

CALLING SEQUENCE 

CALL WTT 

UTILITY ROUTINES AND COMMON REFERENCES 
COMMON/DATAR 
DESCRIPTION 

See Ref. 14. 
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SUBROUTINE NAME; WXANDR 
DESCRIPTION 


This routine solves reference equations for single phase transonic 
routines. 

CALLING SEQUENCE 

CALL WXANDER (IN,JN,KN,ITYPE,PFRARY) 

where 

IN point number on data surface 

JN data surface number 

KN old time step Identifier (1 or 2) 

ITYPE 1. Interior point for all but last downstream station. 

2. Upper wall (nozzle) point for all but last downstream 
station. 

3. Interior point for last downstream station. 

4. Upper wall point for last downstream station. 

PFRARY Array contains flow properties for the old and new time steps 
for all points in the transonic computational domain. 

UTILITIES AND COMMON REFERENCES 

COMMON/ DATAR/ 

PHI 

METHOD OF SOLUTION 
See Ref. 14. 
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FUNCTION NAME; XSI 
DESCRIPTION 


This function computes the storage location for the nonlinear 
interpolation weighting functions required for thermodynamic property lookup 
and retrieves data fiom XSIDIM. 

CALLING SEQUENCE 

= XSI (I,J,K,L) 


where 


I,J,K,L are Indices used to determine the storage location. 

UTILITY ROUTINES AND COMMON REFERENCES 

COMMON/ XSI COM/ 

UTILITY - None 

METHOD OF SOLUTION 


This routine simulates a four-dimensional array. The storage location is 
computed using the following relation 

IX = I + 10 * (J-1 + 2 * (K-1 + 13 * (L-1))) 
and retrieved using the rcl^'tion 

XSI = XSIDIM(IX). 
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5.2 DESCRIPTION OF TRAN72 SUBROUTINES 

This subsection presents a brief description of all the subroutines that 
make up the TBAN72 program. 

• BLOCK DATA 


BLOCK DATA contains atomic data stored in ATOM(i,j) and many of the 
variables used with the variable format, FMT. The format variables are stored 
in the common labeled OUPT and are described here. 

A variable format was used so that one format, FMT, could be used in the 
final output with changes in the number of decimal places according to the 
sizes of the numbers. The format Is used to print a label and from 1 to 13 
associated numbers. The labels contain 14 alphanumeric characters stored In 


four words and printed with 3A4,A2. The numbers are all printed in a field of 


9. FMT is initially set in BLOCK 

DATA 

as follows: 




FMT (1) 

(2) (3) (4) (5) (6) 

(7) 

(8) 

(9) (10) 

(11) (12) (13) 

(14) 

(15) 

(IH. 

34A, A2, F9. 0, FO. 

0, 

F9. 

C, F9. 

0, F9. 0, 

F9. 

0 , 

FMT (16) 

(17) (18) (29) (20) (21) 

(22) 

(23) 

(24) (25) 

(26) (27) (28) 

(29) 

(30) 

F9. 

0, F9. 0, F9. 0, 

F9. 

0, 

F9. C, 

F9. 0, F9. 

0, 

) 

where the 

spaces are stored as blanks. 






Some 

variables set in BLOCK DATA i 

to modify FMT are as follows: 



Variable: 

FO FI F2 F3 F4 

F5 

FB 

FMT13 

FMT9X FMT19 



Storage: 

0 1, 2. 3. 4, 

5, 


13 

9X, 19, 
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The following is a list of variables used as labels and printed with 
3A4, A2 In FMT: 


Variable 

Stored Label 

FP 

P,ATM 

FT 

T.DEG K 

FH 

H.CAL G 

FS 

S. CAL/(G)(K) 

FM 

M.MOL WT 

FV 

(DLV DLP)T 

FD 

(DLV DLT)P 

FC 

CP.CAL/(G)(K) 

FG 

GAMMA (S) 

FL 

SON VEL.M SEC 

FRl 

pr./P 

FCl 

CF 

FN 

MACH NUMBER 

FR 

CSTAR, FT/ SEC 

FI 

ISP, LB-SEC/LB 

FA 

IVAC, LB-SEC /LB 

FA1.FA2 

AE/AT 


0 Subroutine CPHS 

Subroutine CPHS calculates thermodynamic properties for species numbering 
from 1 to NS for an assigned temperature TT. It uses either one of two sets 
of coefficients: C0EF(2,i,j) for the temperature interval TLOW to TMID and 

COEF(l,l,j) for the interval TMID to THIGH. The Index i is the 
species and the 'index" 1 (1 = 1 to 7) refers to the !*•" coefficient. 

The properties calculated ind their corresponding FORTRAN symbols are as 
follows : 


Property 

FORTRAN Symbol 

(S^R) . 

S(j) j - JSl NS 

(H^RT). 

H0(j) j=JSl,...,NS 

NS 

(C /R) 

CPSUM 

j=JSl 

u.(C»/E)j 

CPSUM (when CPHS Is called by HCALC) 
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The index JSl is always set equal to 1 in all routines calling CPHS except 
HCALC. In the latter event JSl and NS are both set equal to the index j ot a 
particular species. 

6 Subroutine EEMT 

Subroutine EFMT (E-format) writes statements in a special exponent form. 
This form is similar to the standard FORTRAN E-format, but the letter £ and 
some of the spaces have been removed for compactness. It is used to write 
density and mole fractions with the TRACE orcion. 

• Subroutine EQLBRM 

EQLBRM is the control routine for the equilibrium module which calculates 
equilibrium compositions and thermodynamic properties for a particular point. 
The subroutine flow diagram is given in Figs. 5-la throv-^h 5-lc. Figure 5-la 
is a diagram of the complete routine. Figure 5-lb is an expansion of the 
block labeled 85 in Fig. 5-la. It gives the details for obtaining and 
applying corrections in subroutine EQLBRM. Figure 5-lC is the expansion of 
the block between blocks labeled 160 and 143 in Fig. 5-la. Figure 5-lc is the 
flow diagram for adding and removing condensed species. 

Several common variables must be set before EQLBRM is called. These 
variables and the modules setting them are summarized below: 


Module 

Vanubles 

lupui 

EbN. ENNL. IQl. IUSE(|). JSOL. “1 for fiisl iler.Uum. 
JLIQ. ENfj.NP'n. ENI.N(j) J first point only 

COEF(k.i.j). TEMPO, k). IONS. LLMT(£). RR. NS 
NLM, NC. SHOCK. IDEBUG. TRACE, and TMII). 


For TP. HP. SP. TV. UV. -ind SV problcint,. TP. IIP. 
SP, VOL, and SO (if SP is true) arc all scl. 

Appluaiiou 

TT. PP, NPT, VIJyl(NPT) (if VOL >s true). In addi- 
tion. if not previously set in Input; VOL, TP, HP, 
SP, and SO (if SP is true). 

Aildihniul input 
pr(»rcssmi: 

BO. EQRAT. and HSUBO 
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Flow Diagram ^or Subroutine EQLBRM 
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OKiGfNAL PAGE iS 
OF POOR QUALITY 



Fig. 5- lb Flow Diagram for Obtaining and Applying Corrections in 
Subroutine EQLBRM (Statement 85) 
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CooBon variables set by EQURM include TTT(NPT), PPP(NPT), SSUM(IIPT), 
HSUM(NPT;, CPR(KPT), GAMMAS(MPT), VIM(NPT), tm(MPT), DLVPT(NPT), DLVTP(NPT), 
TOTH(NPT), ENK. EN(j,HPT), EKLN(J), lUSE(j), JLIQ, and JSOL. 

• Subroutine FROZEN 

Subroutine FROZEN is called fron RCOiET to calculate the teaperature and 
thetBodynanic properties for the following assigned conditions: 

1. CoBposition frozen at coabustion conditions (NFZ = 1) 

2. An assigned exit pressure (PP) 

3. An assigned entropy equal to Che entropy at coabustion conditions 
(SO = SSUM(D). 

If a teaperature is reached SOK below the range of a condensed coabustion 
species ((TQfP(j,l) to TEMP(j,2)), calculations are stopped. TT is set Co 
zero and control is returned to ROCKET where a aessage is printed aod data for 
all preceding points are listed. 

The variables which Bust be sec in cooon before calling FROZEN include 
NFZ, NPT, TT, PP, lUSE(j), COEF(k,i,j), SO, NS, NC, TQ!P(j,k), TMID, WM(1), 
EN(j,l), RR> and TQTN(l). The variables which are set by FROZEN include 
TTT(NPT), PPP(NPT), SSUH(NPT), HSIM(NFT), CPR(NPT), GAMHAS(NPT), VIM(NPT), 
HM(NPT), DLVPT(NPT), DLVTP(NPT), and TOTN(NPT). .Many of these variables are 
the sane as are required by or set by EQLBRM. 

• Subroutine GAUSS 

Subroutine GAUSS is used to solve the set of siaultaneous linear 
iteration equations constructed by subroutine MATRIX. The solution is 
effected by performing a Gauss reduction using a modified pivot technique. In 
this modified pivot technique only rows are interchanged. The row to be used 
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for the elimination of a variable is selected on the basis ttiat the largest of 
its elements, after division by the leading element, must be smaller than the 
largest element of the other rows after division by their leading elements. 

The solution vector is stored in X(k). In the event of a singularity, 
IMAT (which is equal to the number of rows) is set equal to IHAT - 1. IHAT is 
tested later in subroutine EQLBRM. 

• Subroutine UCALC 

The purpose of UCALC is to calculate thermodynamic properties for 
reactants under certain circumstances. UCALC is called from NEUOF (see "Entry 
NEUOF"), suae and DETON. 

UCALC is called from NEUOF when CALCH is sec true. CALCU Is set true in 
the main program when zeros have been punched in card columns 37 and 38 on one 
or more REACTANTS cards. The zeros are a code indicatii^ that the enthalpy 
(or internal energy for UV problems) for the reactant should be calcualted 
from Che TUERMO data at the temperature punched on the card. This temperature 
has been stored in Che RTEMP array. CPUS is called to calculate the 
enthalpy. The value is stored in the ENTU array and printed in the final 
Cables. 

The properties calculated in subroutine UCALC, their FORTRAN symbols, and 
the conditions for which they are used are as follows: 


5-193 


LOCKHEED-UUNTSVILLE RESEARCU & ENGINEERING CENTER 



LMSC-HREC TR D867400-II 


Property 

FORTRAN Symbol 

Equation 

Conditions 

H (k)T 

HPP(k) 

(192) 

SHOCK problem. DETN problem with 
T schedule. UP, RKT, or DETN 
problem if 00 in cc 37 and 38. 

h,R 

HSUBO 

(193) 

SHOCK problem. DETN problem with 
T schedule. HP, RKT, or DETN 
problem if 00 in cc 37 and 38. 

u(k)x 

HPP(k) 

(194) 

UV problem if 00 in cc 37 and 38 

“o 

HSUBO 

(195) 

UV problem if 009 in cc 37 and 38 

Mo 

AM 

(197) 

SHOCK or DETN problem 

“i 

EN(j; 

(205) 

SHOCK problem 

C 

0 

CPRl 

(206) 

SHOCK problem 

S 

o 

SO 

(207) 

SUOQC problem 

The quantity m^ was deliberately subscripted differently from EN(j) 


to allow for the fact that the saoe compound may have a different index as a 
reactant than as a reaction species. Thus, for example, O^Cg) might be 
the third reactant read in from REACTANTS cards and also the tenth species 
read in by SEARCH. In this case m^ would be stored in EN(lO). 

• Subroutine INPUT 

Subroutine INPUT sets up the transport and relaxation data needed for 
the transport property calculations done in TRANSP. It is called from 
TRANSP for each point. The various functions of this subroutine are 
outlined as follows: 


I. The EN array is searched for the most important gaseous species for 
the current point. These are Identified and suved by storing the index of 
the species name in IND. A maximum of 20 species is allowed. All species 
of mole fractions less than 10~^ are omitted, as well as all condensed 
phases. However, all gaseous atomic elements are initially included, even 
if they are not among the 20 most important species, or even if their mole 
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fractions are less than 10~^. This condition is Imposed to satisfy a 
requirement imposed upon the A array, which is explained later in this 
section. If any elements have been omitted through use ot an OMIT card, 
they are reinserted into the A array at this point. A message is printed 
out giving the name of the element reinserted into the A array: "NO ELQIENI' 

WAS FOUND IN THE LIST OF SPECIES WITH THE NAME (name of species), OR ELSE 
THERE IS AN ERROR IN THE A(I,K) ARRAY." 

2. The mole fractions and molecular weights are now calculated for the 
new reduced composition obtained in Step 1. 

3. Transport and relaxation data are initialized to zero. Then, data 

stored in TABLES are searched, interaction by interaction, for data 
pertinent to the current point. When such data are found, subroutine 
L(^GE(TT) is called. L(^GE(TT) Interpolates for the temperature TT. If 
data are missing for a pure species, an empirical equation is used to 
estimate the data. If data are missing for an interaction between unlike 
species, data are estimated from combining rules, using the data of the pure 
species. The empirical equation and the combining rules are described in 
the next section. If data for a pure species are missing, an error message 
is printed out: "NO TRANSPORT DATA WERE FOUND FOR THE SPECIES (name of 

species)." If the logical variable NODATA is not specified in the INPT2 
namelist, the program sets NODATA = .F. and the message is printed. If 
NODATA - .T. is set in namelist INPT2, the message is not printed. However, 
no message is ever printed when data are missing for an interaction between 
unlike species. In either case, the program continues. The purpose of this 
error message is to warn the program user when transport data for a major 
species are missing. When the user is certain this is not the situation, he 
may wish to omit the message, in order to avoid getting the message every 
time the program fails to find data for a minor species. 

4. The final operation of INPUT is to read the stoicuiometric 
coefficients from the A array into the STC array and reorder them so as to 
express them as a set of chemical reaction equations. As was mentioned 
earlier, all the elements in the system are initlaly included. This is not 
a necessary requirement, but was done as a matter of convenience. By 
including all the elements among the 20 (or less) gaseous species in the 
system, it is possible to use the A array to express the system in terms of 
a sufficient set of Independent chemical equations. The number c. required 
indenendent equations is given by taking the total number of species and 
subtracting the number of chemical elements in the system. So by choosirig 
the set of chemical equations as the chemical reactions of formation of each 
species, a set of equations can be easily written directly from the 
stoichiometric coefficients in the A array. For Instance, in the A array 
corresponding to the column for CH 4 , there is a 1 in the row for carbon, a 

4 in the row for hydrogen, and a 0 in the rows for the remaining elements. 

By assigning a -1 to CH 4 , the chemical equation C + 4H - CH 4 = 0 is 
formed . 
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This procedure is applied to each species In the system, and the result 
is the Initial set of equations. This initial set of equations Is then 
reduced in order to eliminate any species or element (in this case always an 
element) not found among the 20 most important species in the system. This 
reduction is accomplished by searching through the chemical equations for an 
element with a mole fraction less than 10 solving the chemical equation 
for that element, and then substituting the result in any other equation in 
which the element appears. Tlie new set of equations is one less in number 
than the original set. This procedure is repeated until all the elements of 
mole fractions less than 10 have been eliminated from the chemical 
equations. The stoichiometric coefficients of this final set of equations 
are stored in STC and are used for calculating the reaction contribution to 
the heat capacity and thermal conductivity. 

• Subroutine LGRNGE(TT) 

Subroutine LGRNGE(TT) is a four-point Lagrange Interpolation routine. 

It is used to Interpolate within the tables of transport and relaxation data 
at temperature TT. 

• Subroutine MASTER 

MASTER is the main program of the TRAN72 program. It provides overall 
control of the operation of the program. 

• Subroutine MAINl 

This subroutine determines how and where the input data should be read 
in. It provides overall control of the equilibrium thermodynamic property 
calculation. 
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t Subroutine MATRIX 

This subroutine sets up the matrices corresponding to Tables I and IV. 
The assigned thermodynamic state being set up is specified by the following 
codes: 

Assigned Thermo- Codes 

dynamic State 


TP 

TP 

s 

.TRUE. VOL 

* 

.FALSE. 

CONVG 

= 

.FALSE. 

HP 

HP 

s 

.TRUE. VOL 

= 

.FALSE. 

CONVG 

s 

.FALSE. 

SP 

SP 

= 

.TRUE. VOL 

= 

.FALSE. 

CONVG 

= 

.FALSE. 

TV 

TP 

= 

.TRUE. VOL 


.TRUE. 

CONVG 

s 

.FALSE. 

UV 

HP 

= 

.TRUE. VOL 

= 

.TRUE. 

CONVG 

SE 

.FALSE. 

SV 

SP 

= 

.TRUE. VOL 

= 

.TRUE. 

CONVG 

= 

.FALSE. 


After convergence of any of the previous six problems, setup of the 
derivative matrices is specified by the following codes: 


Derivative Codes 

DLVTP CONVG = .TRUE. LOGV = .FALSE. 

DLVPT CONVG = .TRUE. LOGV = .TRUE. 

• Subroutine MOCDAT 

This subroutine writes the results on Tape 10 in the particular format 
required by pregram PLUME. 
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• Subroutine OUT 

The output routine, appropriately called OUT, handler all the output of 
the transport property calculations. This Includes table headings, units, 
calculated data, spacing, and punched-card output. 

This routine was written with the capability of saving the transport 
data for as many as 32 points. These data are saved in STORE. Including 
the current set of 13 points, this means that as many as 65 points can be 
printed at one time. If the problem has more than 65 points, which might 
occur for a TP problem, transport data will be printed out after every 
multiple of 65 points. 

0 Subroutine OUTI 

This subroutine, together with entries 0UT2 and 0UT3, writes statements 
common to all problems. OUTI writes statements giving the data on REACTANTS 
and for percent fuel, equivalence ratio, and density. 

Entry 0UT2, - This entry writes the statements for printing values of 
pressure, temperature, density, enthalpy, entropy, molecular weight, (31n V/9 
In P)^ (if equilibrium). (91n V/9ln T)p (if equilibrium), heat 
capacity, Yg, and sonic velocity. These variables and corresponding 
labels are printed with a variable format described in BLOCK DATA. 

Entry 0UT3. - Entry 0UT3 writes statements giving the equilibrium mole 
fractions of reaction species. It also cooperates in the removal of 
condensed species. 
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• Subroutine REACT 

The purpose of subroutine REACT is to read and process the data on the 
REACTANTS cards. The subroutine is called from the main program after a 
REACTANTS code card has been read. The data or. these cards are described in 
the Section 4.1 of Volume 111. 

The reactants may be divided Into two groups according to card column 
72 on the REACTANTS cards. The two groups are oxidants (0 in cc 72) and 
fuels (cc 72 f 0). We generally keypunch F In card column 72 for fuels even 
though this is not necessary. Hie contents of card column 72 are read into 
FOX. Depending on the contents of FOX, program variables relating to 
oxidants or fuels are subscripted 1 for oxidants and 2 for fuels. 

The FORTRAN symbols for the properties read from the REACTANTS cards 
and their associated properties discussed in INPUT CALCULTIONS (Section 4.1, 
Volume III) are as follows: 


Properlv 

FORTRAN symbol 

1) 

ANUM(j.ni)“ 

w(kl 

j 

PECWT(i) (if no M in cc 53) 

1 

PECWT(j) (if M in cc 53) 

« 

ENTH(]) (if nut UV problem and 00 nut in cc 37 and 38i 

(“C’ 

ENTII(j) (if UV problem and 00 not in cc 37 and 36) 

ti;) 



DENS(j) 


*'e.icIi of (he i REACTANTS cards contains from I to S stoich* 


lunietric coefficients read (indicated by subscript m) into 
ANUM(j.m) and their corresponding chemical svnibols re.id 
into NAM E(i. m). In relating an ANUM(j. ni) with a|^^ the 
index i associated with a particular chemical element is 
determined from the cheinic.'l symbol in NAME(].m). 
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If there are several oxidants their properties are combined by 
subroutine REACT into properties of a total oxidant using the relative 
proportion cf each oxidant given on the REACTANTS cards. Similarly, if 
there are several fuels, their properties are combined into properties of a 
total fuel. The total oxidant and total fuel properties discussed in INPUT 
CALCULATIONS and their associated FORTRAN symbols are as follows: 


Property 

FORTRAN symbol 

Equation 


BOP(i.k) 

(187) 

J 

RMW(j) 

(190) 


HPP(k) (if not UV problem and 

(192) 


00 not in cc 37 and. 38) 


^(k/>p 

HPP(k) (if UV problem and 00 

(194) 


not in cc 37 and 38) 



AM(k) 

(196) 


RH(k) 

(198) 


VPLS(k) 

(200) 

V*<k) 

VMIN(k) 

(201) 

/nreac 



^(k) j ^ 

PECWT(j) 


/ j=» 




f kl 

If any of the ' are zero then RH(1) 

These total oxidant and total fuel 
into total reactant properties by using 
ratios obtained from the main program. 
SAVE, 


<= RH(2) = 0. 

properties are subsequently combined 
the values of oxidant-fuel mixture 
This is done in NEWOF, an entry in 
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Other common variables set by REACT are LLMT, NAME, ANUM, ENTH, FAZ. 
RTEMP, FOX, DENS, RMW, MOLES, NLM, NEWR, and NREAC. 

A provision is made for eliminating a second tape search when two 
consecutive sets of REACTANTS cards contain the same elements. This is done 
by saving the element symbols (LLMT(/)) in LLMTS(i), the kilogram-atoms per 
kilogram (B0P(/,k)) in S60P(/,k), and the number of elements (NIM) in NLS. 

Atomic weights are stored in AT0M(2,1). The corresponding chemical 

symbols are stored in ATOM(l,i). The oxidation states of the chemical 
elements or V are stored in AT0M(3,1). The ATOM array is stored by 

BLOCK DATA. 

f Subroutine RKTOUT 

This subroutine calculates various rocket performance parameters from 
prevloulsy calculated thermodynamic properties. 

It is also the control program for writing rocket performance output. 

It contains the WRITE statements that apply specifically to rocket 
parameters and it calls subroutine OUTl and entries 0UT2 and 0UT3 for the 
WRITE statements common to all problems. The rocket parameters are printed 
with the variable format, FMT, described in BLOCK DATA. 

Subroutine RKTOUT is called from subroutine ROCKET, 
f Subroutine ROCKET 

This subroutine provides control for 
the rocket performance calculations. A 
logic-level flow chart is given in Fig. 5-1. 

The symbol is used to indicate that the loops 
shown are not actually coded as DO-loops. Note 
that there is a RETURN to CHEM and a reentry at 
ROCKTl once in each loop. 
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Subroutine ROCKET obtains the required thermodynamic properties lor 
equilibrium performance by calling subroutine EQLBRM. For frozen 
performance, subroutine ROCKET calls subroutine FROZEN to obtain the 
required thermodynamic properties. Rocket performance parameters are then 
obtained by calling subroutine RKTOUT. In addition to calling RKTOUT and 
FROZEN, subroutine ROCKET also: 

• Calculates estimates for throat pressure ratios. 

• Calculates estimates for pressure ratios corresponding 
to assigned area ratios (If any). 

• Subroutine SAVE 


Subroutine SAVE has several functions, all of which are concerned with 
saving some Information from a completed calculation for subsi , ent use In 
later calculations. The primary purpose Is to save computer time by having 
good initial estimates for compositions. 


These estimates for the next point, NPT, come from either the point 
just completed, ISV, or some other previous point. The flow of the routine 
is directed by ISV as folic vs: 


1. ISV positive. Transfer compositions for point just completed for 
use as Initial estimates for next point (transfer EN(j,lSV) to EN(j,NPT)). 

2. ISV negative. Save values of ENLN(J) for gases and EN(j) for 
condensed In SLN(j), ENN In ENSAVE, ENNL In ENLSAV, IQl In IQSAVE, JSOL In 
JSOLS, JLIQ In JLIQS, and NLM In LLl. (These values are saved because they 
are to be used as Initial estimates for some future point and they may be 
overwritten in the meantime.) Make ISV positive and transfer EN(j,ISV) to 
EN(j,NPT). 

3. ISV zero. Use the data previously saved (as discussed in (2)) as 
Initial estimates for current point. Restore lUSE codes and Inclusion or 
exclusion of "E" as an element for IONS option. 
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Entry NEWOF - NEWOF combined the properties of total oxidant and total 
fuel calculated In subroutine REACT with an 0/F value to give properties for 
the total reactant. NEWOF Is called for each mixture assigned In the MIX 
array In 1NPT2 namelist. It Is called from either THERMP, ROCKET, SUCK, oi 
DETON. The calculated properties and corresponding FORTRAN symbols are: 


Property 

FORTRAN Symbol 

Equation 

i B0(i) 

B0(i) 

(191) 

h /R 
0 

HSUBO (If not UV problem) 

(193) 

u /R 
o 

HSUBO (If UV problem) 

(195) 

0 

RHOP 

. i ) 

r 

EQRAT 



Subroutine HCALC is called by Entry NEWOF to calculate the enthalpies 
for each reactant that has zeros keypunched in card columns 37 and 38 In its 
REACTANTS card (see Table VI). 

Values of HPP(2), HPP(l), HSUBO, B0P(1,2), BOP(i.l), and B0(1) are 
printed out. 

• Subroutine SEARCH 

Subroutine SEARCH reads the THERMO data which have been stored or tape 
4 and stores the appropriate data In core. 

A check Is made near the beginning of the routine to prevent THERMO 
data from exceeding their storage allotments. These variables are all in 
labeled common SPECIES and are currently dimensioned for 150 species 
(Appendls B). However, this dimension may be reduced to save storage. 
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SEARCH is called from the main program when the logical variable NEWR 
is true. NEWR is set true in REACT to indicate a new chemical system. 

REACT also stores chemical element symKls for the current chemical system 
in the LLMT array. SEARCH stores THERMO data in core for each species whose 
elements are Included in the LLMT array (unless the species name was listed 
on an OMIT card) . 

The THERMO data are stored in conaaon variables TLOU, TMID, THIGH, SUB, 
A, COEF, and TEMP. SEARCH writes out the names ad dates of species whose 
data are stored ir core. 

SEARCH initializes the lUSE array. lUSE(j) for gareous species are set 
equal to zero. lUSE(J) for condensed species are set equal to negative 
integers. For the chemical system under consideration, the first possible 
condensed species is set equal to -1, the second to -2, and so on, with one 
exception. In the event there are two or more condensed phases of the same 
species, each phase is given the same negative integer. Thus, if lUSE(j) 
for ^ 20 ^( 1 ) is set equal to -4, for example, lUSE(j) for B^O^Cs) 
will also be set equal to -4. A description of the lUSE array is given in 
the next section. 

The various condensed phases of a species are expected to be adjacent 
in the THERMO data as they are read from tape 4. These phases must be 
either in increasing or decreasing order according to their temperature 
intervals. 

NS contains the total number of species stored in core. NC contains 
the total number of condensed species (counting each condensed phase of a 
species as a separate species). 

lUSE array - Each value in the lUSE array is associated with a 
species. Tnese values of ''^"SE serve two purposes: 
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1. They Indicate which species are to be included in the current 
iteration (lUSE(j) 0 for excluded species and lUSE(j) 0 for included 
species). 

2. They indicate multiple phases of the same species if abolute values 
of lUSE(j) are equal. 

The lUSE(j) are initialized in subroutine SEARCH and the main program 
as follows: 

1. lUSE(j) = 0 for all gaseous species. 

2. lUSE(j) > n for all condensed species whose names have been listed 
on INSERT cards. The number n indicates the species was the n^^ condensed 
species whose THERMO data were read from tape 4. 

3. lUSE(J) = -n for all condensed species not listed on INSERT cards 
where n is defined in (2). 

These initial values of lUSE(J) may be adjusted later in subroutine 
EQLBRM. For condensed sp'‘cies, the sign is adjusted as species are included 
or excluded in the current iteration. 

For the IONS option, lUSE(j) values for ionic species are set to -10000 
when the mole fractions of all ionic species are less than 10 . 

• Subroutine SET 

This routine initializes the common arrays which contain concentration 
infonna^ion to zero and provides an initial guess (ENN = 0.1) for the 
inverse of the mixture molecular weight and also for the chamber temperature 
(TT = 3800 K). The lUSE array is also initialized. 
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• Subroutine TRANSP 

Subroutine TRANSP is the main routine for the transport calculations. 

A flow diagram is given in Fig. 5-1. All calculations of the properties are 
done in this routine. The equations are given in the next section. 

One other operation is carried out in this routine. Local tape unit 3 
is searched for the transport and relaxation data of the important 
interactions and saved in the variable TABLES. This search differs from the 
one in subroutine SEARCH. In SEARCH, data are saved for all interactions in 
the chemical system; whereas, the TRANSP, interactions involving a trace 
species are eliminated. 

The remainder of the routine is the calculation of the properties. 
Calculation of the viscosity, monatomic thermal conductivity, reaction 
thermal conductivity, and reaction heat capacity all Involve the solving of 
a set of simulter.eous linear equations. The matrix elements for each are 
calculated in TRANSP, but the actual solution is obtained from subroutine 
GAUSS. 

The solutions obtained from GAUSS are checked for accuracy for two of 
the properties, viscosity and reaction thermal conductivity. If the initial 
equations are not satisfied to a prescribed tolerance by using the solution 
obtained from GAUSS, an error message is printed out. 

8 Subroutine VARFHT 

Subroutine VARFHT (variable format) adjusts the number of decimal 

places printed in F-format in the variable format, FMT, according to the 

size of the number. It is used for P /V , P, and A /A . Variable 

c e e t 

format is described in BLOCK DATA. 
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5.3 DESCRIPTION OF BLIMPJ SUBROUTINES 

The BLIMP-J subroutines are identified by two labels. The first label 
is the element name and the second label is the subroutine name, e.g., B03A 
(element naaie), SETUP (subroutine name). In the following description the 
subroutines are ordered according to their element name. Figure 5-2 gives a 
flow chart which shows the general solution procedure and the 
Interconnection of the major subroutines. 

There are several dummy subroutines included in the program. Some of 
these are for obtaining Information from the computer system, e.g., date, 
time of day, etc. The specific routines are B30B, B30D, B30E, B30F, B30G. 
They are described on the following pages. If there are system subroutines 
of the same name and function they may be removed from the program. 
Alternatively, they may be used to call the appropriate system routine. 

• BOIA DUMCOH 


A collection of all labeled commons sometimes useful when performing 
debug operations. (Serves as main program for COC machines. Calls BLIMP 
(B02A). 

f B02A BLIMP 

Master calling program. For the Univac system, this program calls 
SETUP, ITERAT, OUTPUT, ROCOUT. (For CDC this is a subroutine called by 
DUHCOM) . 

• B03A SETUP 

Control program for setting up boundary layer edge conditions and 
streamwlse derivatives for a new station or a new case. Called by BLIMP. 
Calls FIRSTG, LINMAT, RECASE, TRMBL, STATEN, REFCON, TRANCR, HISTXI, INPUT, 
TOD, ETIMEF, DATE. 
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Fig. 5-2 Flow Chart for BLIMP-J Solution Procedure 
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• B04A HERAT 


Control program for performing boundary layer interaction and testing 
maximum errors for convergence. Called by BLIMP. Calls NNNCER, ETIHEF, 
NONCER, TLEFT. 

• B05B NNNCER (entry point NONCER) 

Control program for performing that portion of a boundary layer 
iteration having to do with solution of the nonlinear (conservation) 
equations. With the aid of its subroutines, it evaluates errors and 
coefficients of the corrections of the nonlinear equations, reduces this 
matrix to the nonlinear set, evaluates maximum errors of conservation 
equations, evaluates corrections, computes damping factor and applies to 
corrections, and corrects primary variables. Called by HERAT. Calls 
IHONE, EQUIL, ICOFF, lONLY, RERAY, ABHAX, RNLCER, STATE, OGLE, LINCER, 
TRMBL, TRANCR, LIAD, ETIMEF. 

• B05A RNLCER 


Further reduces nonlinear equations to reduced nonlinear set of wall 
variables. Introduces wall boundary conditions and solves for new values of 
this set. Called by NNNCER. Calls RERAY, EQUIL. 

• B06A LINCER 


Evaluates errors for linear equations (i.e., Taylor series expansions 
and linear boundary conditions) and with the aid of its subroutines, 
determines maximum errors of linear equations and corrects errors for these 
linear equations for the matrix reduction which is performed on the linea 
equations (see discussion under subroutine MATSl). Called by NNNCER. Calls 
ABMAX, MATSl, MATS2. 
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• B07a REFCON 

Calculates boundary layer edge conditions and sets up wall boundary 
conditions for uncoupled problems. Called by SETUP. Calls STATE, EQUIL, 
SLOPQ, SLOPL. 

• B07B MISCIN 

Sets up default values for certain variables and reads namelist 
^MISLIS. Called by RECASE. 

0 B08B ICOEFF 


Calculates groiq>ings which contribute to the error equations and 
influence coefficients for the nonlinear (conservation) equations. Called 
by NNNCER. 

0 B09A RECASE 

Reads in most of boundary layer input data Called by SETUP. Calls TOD 
DATE, GE(»1. 

0 B09B GEOM (S, R, P, KIN, N'BT, NBT2, NS, PTET, NTH, GE, IP, lU) 

Reads namelist iiNPUT and computes the wall length and the gradients o 
pressure and velocity when necessary. Selects from the input data those 
stations used for boundary layer solution stations. Called by RECASE. 

S - wall length 

R - nozzle radius 

P - pressure 

KIN,NBT,NBT2 - unit assignments 

NS - number of BLIMP solution stations 
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PTET ~ axial coordinates of BLIMP solution stations 
NIH - throat station number 
GE - cos4) (wall angle) 

IP flag for input of edge pressure and edge pressure gradient 
lU - flag for input of edge velocity and edge velocity gradient . 


Sj^ (wall length) = s^^ + 


»Pi 

E “'j 


O 


+ (x. 



1/2 



for lU = 1 


dU 
e 

dx 


i 


same as 


dx 


i 


with P replaced by 


where 1 ~ BLIMP solution station 

j - index on input x, r, P, etc. 

NPj^- value of j for the 1*^ BLIMP solution station. 


• BlOA 

Computes terms involving derivatives with respect to XI (i.e., 
nonsimilar terms) and stores those upstream quantities needed for these 
difference relations. Called by SETUP. Calls TAYLOR. 
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• BllA OUTPUT 


Prints standard boundary layer output block for converged solution or, 
If required, at the end of each Iteration. Called for BLIMP. Calls REFIT. 

• BllB ROCOUT 


Available as an option (KR(8) = 1,2,3), this subroutine calculates a 
corrected body contour which can be output onto punched cards for use as 
Input to TDK. 

The KR(8) = 1 option calculates and punches the Invlscid flow contour 
which should be used for TDK Input for a specified, and different, nozzle 
contour (which has been input to BLIMP-J). The invlscid contou' 
calculated from 


^ ■ ^B ° 

Xj = Xg = 6* sin o 

where R^ is the Inviscld contour radius, Rg is the nozzle radius 
(input), 6g Is the body displacement thickness, and («) is the wall angle. 

The KR(8) = 2 option calculates and punches the desired body contour if 
the input contour Is the Invlscid flow field contour. The body contour is 
calculated from 


Rg = Rj + 6g cos(t» 

Xg * Xj - 6g sintj) 

where the terms are the same as above except that R^ is the input contour 
to BLIMP. 
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In both cases the contour is normalized to the throat radius (the 
minimum radius) and the axial coordinate is zero at the throat. Also, the 
contour is punched in a form suitable for TDK input. 

• B12B IMONE 

Evaluates the coefficients of thj (I-l)*"^ corrections for the I 
nonlinear (conservation) equations, where I is the nodal point in the 
boundary layer. Called by NNCER. Calls TAYLOR, LIAD. 

• B13B lONLY 

Evaluates the coefficients of the corrections for the 
nonlinear (conservation) equations, where I is the nodal point in the 
boundary layer. Called by NNNCER. Calls LIAD. 

• B14A STATE 

Evaluatef. the chemical state and properties of a homogeneous gas 
mixture. Called by NNNCER, REFCON. Calls HHOMO, CHOMO, SHOMO. 

• 614b STATEN 

Reads in basic property data for homogeneous boundary-layer option. 
Called by SETUP. 

• B14C HHOMO(T) 

Calculates enthalpy of homogeneous gas at temperature T, degrees R. 
Called by STATE. 
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• B14D CHOMO(T) 

Calculates specific heat of homogeneous gas at temperature T, degrees 
R. Called by STATE. 

• B14E SHOMO(T) 

Calculates entropy of homogeneous gas at temperature T, degrees R. 
Called by STATE. 

• B15B RERAY (N, C, NQ, D, NQN, NNN, LS, IS, ND, SD, L, S, LL, LLL) 

Replaces rectangular matrix (C) with N rows of N+NQ columns by the 
product of the Inverse of an N by N submatrix and the remaining columns of 
C. The Inverse is also permitted to act on additional columns (matrix (D) 
with ND rows and NQN columns) from another portion of memory. Also, routine 
rearranges columns according to arbitrary specifications given by LS. 



Called by EQUIL, NNNCER, RNLCER. 

N - number of rows in rectangular matrix (see sketch) 

C = elements of rectangular matrix (see sketch) 

NQ = number of columns in matrix C in excess of those contributing 
to square matrix (see sketch) 

D = elements of matrix of additional columns (see sketch) 

NQN = number of additional columns (see sketch) 

LS = sequence to which columns of C are rearranged (LS(1) = 0 signifies 
no rearrangement) 

IS = flag, yields debug output if RERAY entered with IS = -2, signifies 
singular matrix if RERAY yields IS less than zero 

ND = dimension on rows of C from calling program SD-LLL used to bring 
in dumr'y storage space. 
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• B16A SLOPQ (N, X, Y, S, Z) 

Based on a sequence of quadratic (3-polnt) fits of a set of points, 
calculates average slope at each point and Integrates the equation thus 
defined between each pari of points. Called by REFCON. 

N = number of points to be considered 
X - abscissa at each point 
Y - ordinate at each point 
S = derivative at each point 
Z = Integral up to each point • 

• B16B SLOPL (N, X, Y, S, Z) 

This routine performs the same function as B16A SLOPQ except tha linear 
(2-point) fits are used instead of quadratic (3-point) fits. The slope is 
the average of the left and right slopes. Called by REFCON, TRANCR. 

• B17A ABMAX (N, X, XM, 1) 

Searches an array for the entry with maximum value. Called by LINGER, 
NNNCER. 

N = number of entries in the array 
X = coefficients in array under consideration 
XM = entry with maximum absolute value 
I « index on XM . 

• B18A MATSl(X) 

Performs operations on a column of a matrix B or on a column of errors 
R (designated X in call list) such as to form A**(-1)*X where A**(-l) is the 
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Inverse of the sparce matrix formed from Che Taylor series expansions of 
F(1,I)) and their derivatives (in the case of MATSl) and of G(1,I) or 
SP(1,I,K), vlx.. 

Original matrix operation 


(A + B)V = R 


multiplying through A**(-l) 

[1 + A**(-1)*B]V = A**(-1)*R 
Called by LINGER, LINMAT, MATS2. 
f B18B MATS2(X) 

See MATSl for function. Called by LINGER, LINMAT, FIRSTG. Calls MATSl. 

• B19A TRMBL(ILK) 

Evaluates turbulent transport properties and their derivatives with 
respect to nonlinear variables. Called by SETUP, NNCER. Calls LIAD, 

TAYLOR, ERP, ERF. 

• B19B ERF(X) 

Calculates the error function of X. Called by TRMBL. 
f B19T TRANCR 

Evaluates terms required for consideration of transverse curvature. 
Called by SETUP, NNNCER. 
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• B20A EQUIL (KQ, Z, PRR) 

Control program for computation of chemical state of the system. 

Performs such complex functions as setting up for different types of 
solutions (isentroplc expansion, stagnation point, boundary layer or wall), 
recalling stored values of boundary layer solutions and reinitializing 
omitted species, re-evaluating absent atom array, deleting molecules based 
on absent atom array, and, with the aid of subroutines, evaluating 
properties, controlling principal iterative loop, and relnvertlng and 
attempting alternate paths when convergence problems occur. Called by 
NNNCER, REFCON, RNCLEF. Calls CRECT, MATER, PROPS, RERAY, THERM. 

KQ s flag which controls chemistry options (see FORTRAN variables list) 
Z = enthalpy (when used) 

PRR = pressure . 

t B21A TERM 

Evaluates current thermodynamic p''opertles fot each species, which data 
are required for evaluation of errors and correction coefficients in 
chemistry solution. Ce led by EQUIL. 

• B22A MATER 

Evaluates current errors in chemistry solution and sets up matrix of 
linearized correction equations. Called by EQUIL. Calls KINET. 

• B23A CRECT(MOE) 

Corrects state variables and composition, principal logic being 
involved with limiting corrections such that instabilities in the iterations 
will not occur. Called by EQUIL. 
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MOE = 0 or I if llncMrizat. Lon done predominantly on equilibrium or imiss 
balance relations, respectively. 

• B24A INPUT 

Reads in basic elemental composition data and species property data, 
selects base species, and sets up stoichiometric coefficients for species 
formation reactions. Called by SETUP. 

• B25A PROPS 

Computes all properties and pro,.etty derivatives required by boundary 
layer calculations. Called by EQUIL. 

t B26A TAYLOR (D, FM, F, P) 

Calculates coefficients In Taylor series expansions of integrals which 
appear in the Integral form of the boundary layer equations. Called by 
HISTXI, tMONE, TRM3L. 

D = distance between neighboring nodes I and I-l 
FH value of function and its derivatives at I-l 

F value of function and its derivatives at I 

P » terms in Taylor series expansion. 

• B27A LiraiAT 

Sets up matrices for Taylor series expansions and linear boundary 
conditions frem eta spacing, and solves to express linear corrections in 
terms of nonlinear corrections. Called by SETUP, '.alls MATSl, HATS2. 
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t B28A KINET 

The subroutine is reserved for modeling of kinetically controlled 
surface reactions, called by MATER. 

• B29A FIRSTG 

Compute'S or reads in first guesses for primary variables or instructs 
program to ’ se values from previous case. Called by SETUP. Calls MATS2, 
MATSl. 

f B30A ERP(X) 

Forms Dawson integral of X. Called by TRMBL. 

• B30B ETIMEF(T) (entry point ETIME) 

Subroutine to call the system for elapsed time, T, in seconds. Present 
routine calls the system by a call SECOND. This call should be replaced 
with the appropriate system call, or the entire subroutine can be replaced 
by a dummy. Called be SETUP, ITERAT, NNNCER. 

• B30C LIAD (L, I, J, C) 

Alters elements of the AM matrix and the corresponding errors to 
reflect the solutions to the linear equations. Called by NNNCER, IMONC, 
lONLY, TRMBL. 

L = 1 for momentum, 0 for enthalpy, and K for species equations 

t'l 

I = K * nonlinear equation 
J - linear variable 

C * coefficient of linear variable in nonlinear equation 
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• B30D TLEFT(I) 

Duramy subroutine. Not used with BLIMP-J. Called by HERAT. 

• B30E DATA (I, J) 

Dummy subroutine. Can be replaced with a call to the system for date. 
Called by SETUP, RECASE. 

1 = 9 

J is dimensioned 3 and is expecting a format of 3A6. The first 9 
locations are filled by DATE and the second 9 locations by TOD. 

• B30F TOD (I. J) 

Dummy subroutine. Can be replaced with a call to the system for time 
of day. Called by SETUP, RECASE. 

I = 18 

J = see B30E 

This subroutine and B30E fill the J(3) with information giving date and 
time of day. 

Example: 10 AUG 74 10:23:02 

• B30G SECOND(T) 

Dummy subroutine. Called by ETIMEF. 

• B36A OGLE (N, XAK, FRM, DPDIM, NUMX, X, P, cM) 

Looks up an array of values of a single dependent variable using a 
cubic curve fit between any two points (and corresponding two slopes) of the 
table. Called by NNiiCER. 
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N « number of points to be considered 

SAM « value of Independent variable for which lookup is to be 
performed 

PRM = output Interpolated values returned by OGLE 
DPDIH « output interpolated slopes returned by OGLE 
NUMX = numver of tabular entries in the table 

X = tabular Independent variable 

P = tabular dependent variable 

Q1 = slopes to be used . 

• B30A F1LQ3 

This routine converts the coo~ ».a*"e and constraint data into elements 
in the solution matrix and sets up this matrix for FINEQ. Calls FUNXS, 
TRINT. 

• B30B F1LQ3 

This rcutine evaluates values of variables and their derivatives at new 
nodes. Called by FISLEQ. Calls FLTJXS. 

• B30C FINK? 

This routine solves for the unknown coefficients of the new polynomial 
segments based on LU matrix decomposition. Called by FISLEQ. 

• B30D FISLEQ 

This is the main subroutine for least square curve fits of variables 
between nodal points. Called by POINTS. Calls F1LQ3, FINEQ, F1LQ3. 

• B50E FUNXS 

This r'>utine evaluates special polynomials for the refitting function. 
Called by FILQ3, FILQ5. 
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• B50F TRINT 


This routine evaluates special polynomials for the refitting function. 
Called by FILQ3. 

• B50G POINTS 

This routine uses current values of the variables and tneir derivatives 
and solves for the coefficients of the polynomial segments between each pair 
of adjacent nodes. Limits placed on the velocity variable establish the new 
nodal distribution and values of remaining variables and their derivatives 
are calculated for this new distribution. Called by REFIT. Calls FISLEQ. 

• BSOH REFIT 


This is the main calling routine for the refit procedure. It evaluates 
certain constraints which depend on NETA and the type of curve fit. The B50 
subroutines ar all part of the BEFIT option. Called by OUTPUT. Calls 
POINTS. 

f EDGPRP EDGPRP 


This routine determines the static pressure at the edge of the boundary 
layer in the invlscid RAMP nozzle flowfield after the nozzle boundry layer 
has been calculated. The first pass through the boundary layer solution 
uses static conditions at the nozzle wall as edge conditions in the boundary 
layer solution. If the static pressure at the nozzle wall are met within 10 
percent of the pressure at the edge of the bourdry layer as determined by 
EDGPRP then the boundary layer solution is run with edge conditions 
determined by EDCPR? in the inviscid flowfield at the edge of the boundary 
layer . 
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• EDGHSP EDCHSP 


Subroutine EDGHSP determines total conditions of the boundary layer 
edge at the exit plane of a two phase nozzle. These total conditions can be 
used to rerun the boundary layer solution to better match static properties 
at the edge of the boundary layer in two phase nozzles. 

There are severe gradients in total conditions near the lip of the 
nozzle for solid rocket motors. These gradients are caused by two pliase 
effects and the rapid change in concentration of particles near the lip. 

The first pass thiough the boundary layer solution uses total conditions 
which match static properties at the nozzle lip. However, conditions at the 
boundary layer edge (in the inviscid flowfield) may not be matched. The 
edge total conditions calculated by this routine provide a better match of 
all static conditions at the boundary layer edge so that another pass 
through the boundary layer solution can be made to better simulate the edge 
conditions. 

• IDMTAD iroiTAD 


This function computes the gas property storage locations within the 
TABB array, "".is function is used by subroutine EDGHSP to determine 
boundary layer edge total properties from the TRAN72 equilibrium data tables 
transferred to the BLIHPJ code on the RAHP output data tape. 

• REAEP REAOP 

This subroutine reads the flowfield data from the RAMP nozzle flowfield 
output file (Unit 3). These data are used '/ Subroutine EOGPRP to establish 
boundary layer edge conditions for the second pass through the boundary 
layer solution. 


5-223 


LOCKHEED-HUNTSVILLE RESEARCH & ENGINEERING CENTER 



LMSC-HRLC TR D867400-II 


• r/ ’aD 

The function is used to locate a particular equilibrium flow property 
within the FABB array based on indices in the calling sequence. This 
routine is used to simulate a four dimensional array. 

• TAPMOV TAPMOV 


This routine is used to space past information in the RAMP output tape 
to get to the beginning of the RAMP computed flowfield data. 
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i^pendix A 


The RAMP2 program Is operational on the Unlvac 1108 Exec 8 and CDC 7600 
FTN4.8 systems. The known differences between the Unlvac and CDC systems 
are: 


• The Inclusion of PROGRAM cardt> in the main routines of the three 
programs. 

TRAN72 (MASTER) 

PROGRAM MASTER (INPUT, OUTPUT, PUNCH, TAPE5=i:iPUT, TAPE6=0UTPUT, 
*TAPE7=PUNCH, TAPE4, TAPE8, TAPEIO, TAPE9, TAPE31. 

RAMP2F (MAIN) 

PROGRAM MAIN (INPUT, OUTPUT, PUNCH, TAPE5=INPUT, TAPE6=OUTPUT, 
*TAPE7=PUNCH, TAPEl, TAPE2, TAPES, TAPE4, TAPE8, TAPE9, TAPEIO, 
*TAPE11, TAPE12, TAPE13). 

BLIMPJ(DUMCOM) 

Program DUMCOM (INPUT, OUTPUT, PUNCH, TAPE5=INPUT, TAPE6=OUTPUT, 
*TAPE7=PUNCH, TAPEl, TAPE2, TAPES, TAPE4, TAPEIO, TAPE18, TAPE19, 
*TAPE20). 


• All routines in the RAMP2F code which have the particle array 
PFPARY as an argument in the calling sequence and the MAIN 
program require a LEVEL 2, PFPARY statement so that for the CDC 
7600 this array may be stored as Large Core Memory (LCM). 


The Univac 1108 Exec 8 overlay instructions for the RAMP2F and BLIMPJ 
programs are shotm in Figs. A~1 and A-2, respectively. Table A-S and A-4 
present the CDC 7600 segment loader instructions for the RAMP2F and BLIMPJ 
codes. In order for the CDC 7600 loader to operate the following dummy 
routines must be included for the RAM2F: LEGOO, LKBl, LKB2, LKBS, LKB4, 

LKB3, LKCl, LKC2, LKCS, LKC4, LKC5. The BLIMPJ program requires the 
following dummy routines: LE(X)0, LINKA, LINKl, LINK2, LINKS, LINKY, LINKS, 

LINK6 and LINK7. 


The TRAN72 does not require overlaying. 
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SE*: main 

IN TPr? .K-MN, .pRIVE'?, .3 LKDaT 
StG R14,(MAIN'J 

IN TPr%.IGKTAP, ,PLUMIN» .AXIS , .IDMPHT , .LOGIC* .P0IM,.M6» .wTT 
IN TPF$.t.XANDP*. MASS,. MAXI, . OF SE T , . C UTPU T , . P AG V OF , . PH I , . ST ART V 
IN TPFl.THERMT. . INITP, .GASRP, .IDFXSI ,.IDTAPE,.GASTAP,.IVPUT 
IN TPFi.PARTiN, .LIPIN,.W0PA,.A0ASTR, .SETHTG,.PARTPH,.MASC0N 
IN TPFi .PLMC uT, . STLINE, .SPACET 
SEG 3?#, (MAIN) 

IN TPFJ.TPANS ,.CCEFS, .DLIA, .FIXIL,.HALL, .CNEO,.ORTHLS,.PARTIL 
IN TPF5.TRACE,.WD6I, .PROP*. PUNE y,.AP ASSL*. SPECIE*. I CMPOP*. POP 
SEG -!3«,IMAIN) 

IN TPFi.bLMPiN, .IDM tOB* . specie*. WALPPP*.TC3 
IN TPFS.SPeCC *. ir SPEC 
SEG 34#*|MAIN) 

IN TPFS.PTLTCC* . IPMPRO* .PRO* .IDMPDT * .PDT * .SLE^IT * .PARLOK 
IN TpFi.INRSCP* .TAPMCV* . RE ACF * . I N TE PP * . T R ACEP *• G AS * . ST AR T 
In TpFI.PREAD,.«TFlOP*.URITP 
SEG 35=»,IMAjK) 

IN TPFi. CHECK , .CHEM* .SLOP* .COEFEC* .rOTPRD*. EM0FP*.FNEWTN*.5APP&I 
IN TPFS.INPSCT* .newest* .PPATPT*.RGMOfP». VEMAG,.VMoDEL,.VMOD1 
IN TPF». phase 1, .SOKINT 
SEG CJ#*I3S> 

In TpF$.sTRNOP, .sokscl, .physol *.CARCTR*.SLPLIN 
IN TPF» .AVERAG* .STGmoO 
SfG C2**(B5I 

IN TPFJ .NTRSCK, .POFH, .VM0D2* .TURN* .CUT*. E SHOCK, .WEAK 
IN TPrs .UELTAF * .ENTROP* .L I Ml TS * . SL SK IP *.PRFRbD 
IN TPFf .FPEEMC* .WTFLOF, .ITAPM 
In TpFS.TOFENH, .OUTBIN, .INTT 
SlG C3»*(E5) 

IN TPFS .MASSCK, . INTE&R* .CBRFAK *. thrust *. I7ERM 
«^EG C4«,(bS) 

IN TpPt .kCCPMk, .E ACWRD* .CODEE * .CCDEF , .CODFH * .DECODE * .FOR WRD 
N TPFi.LOUNDA 
StG C5’»f«B5) 

IN TPFi .THETPM, .PPANDT* . H YPF R * . C V e R F X * . M OCSOl .. tXpCCR 
IN TPFi.IRAD* .PLCAC *.NORMCK *. SLIM* .PARI NT* .PaRSTR 
IN TPFl .PAFH* . mesh, . wEKK* .ENTRPP * .OFLTFF * .E SHOCC 
SLG Dl»* ( ) 

IN DUmSYS * p ARTPl 

FND 


Fig. A-1 RAMP2F Loader Instructions for the Univac 1108, 
£]XC 8 Operating Ststem 
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ORiGtNAL F. .. - . 

OF pog;^ QG;-L1TY 


&4. w O U fc 

IN b3^A 

SLf» Ti».OA« ( C;«Ui 

K. tD3A 

Stft iMPLfcA , tT *i O t 

IN bn/A 

- Sif . FO U R* , t TWO ) 

It. dGvA 

fi r jJlL» « II •■» > 

IN b2HA 

S tG S iXa, t I .iO> 

It. ul4e 

S£fi SUU-N«.^.lGft.£.J 

IN br.4A 

»rr. t K^rvi.M . _ _ 

IN bllA 

SLG NINL*, tStVEt.) 

lt4 ullB 

SLG TL^it^lONLi 

IN IPFf.EDGPRP, ,EU6HSP». TAPhOtf ,.Rt A.,P, .IDHIAO, .TAb 


Fig. A-2 BLIMPJ Loader Instructions for Unlvac 1108, Exec 8 
Operating System 
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LINKdS TAtL LKBS-(LKC ULKC?«IKCS«LKC<I«LKC6> 

LINKPl TALC LK01 
LINKH2 TPIZ LKB? 

LINKf-? LKb3 

LiNKfii* TStC LKP<» 

ROOT TREE LEGnC-(LINKfil,LTNKP2«LINKF ^.,Llf.KP4*LIIiK05» 

LE600 INCUJOE WAIN*n»^IVER*PLKOAT, 

LKbi INCLUDE HLtf«IN*INlTr,6ASRC*GA^TAP,FAKTIN*LlrlN*WOFA*AOASTK*J:FlFTr*P 

• ARTFh,MaSCC',*PL ’.)UT,F.TL If.F,SPACrT 

LKf 2 INCLUDE TRA* ?,FUi;FX, ARASSL*SPf CTE, T "POL.POP 
LKP3 INCLUDE ^ LHPIN*T'U'TOP*T08 »SFtClf>*WALFRP 

LKBA INCLUDE PPLTPC * I D^PR 0,PR0 ,IPMF0T*P0T ,BLEX I TfPARLOK * INRSCP*T APffOV* Rf 

♦ ADF*I\TERP*TRACFP,GAF*FTART,PREAO*WTFLf-F»WRnP 
LKH'3 INCLUDE fHAFEl 

LKCl IMCLLIHE STRN'CR*rOKS>H .PHYFOL tCARCTR * «? LPLT N ,t VP R AGt STGrOF 

LKC2 1‘iCLUUt ' ORSCK {:Fh « Vr OU 2 «TUR.\ •LI * H 5 «I TA RM ,F SHOCK thL AK L^TAF NTR 

,OP,rUTfSLf.KIP»PRFRF: ,FRf Ff.c,WTFL''F*';UT=. Tf ,l‘. TT 

LKC3 INCLU'E T HRI'f. T * I MEf • PASSCK * ITT^- r (' T. AK 

LKCA INCLUDE MCCRPKft OltNLA 

LKCt INCLUDE tfiE TrN*!r AND T , HYPER, PAR SIR •' CCS L ,F AK]NT,IRAD ,PL AL,FL ir T ,N 

,OR.‘^Cn,PESH,[ yPC^RfOVF Sf v .r SHCCC , WEKK •''VTPpp ,r ri_Trp 

LEG* '• CLONAL '• E T, VI F V Ah TP 3 , U.TCR ,P r '• UJT • ES TAt ,r' T" \ ,CME‘' X X 

LLC '* GLOt-AL ‘ LMli AT ,L I PPT , DPRf SU,PFAr,PU C ,V'- 1 • CmEKCN , V 1 SL >. 

LEGU GLOBAL HUL , DRUS ,CHEO, VAR OF, ISTHT , IPMX,uFST AR ,C APUR, TRPR T ,DF AGCF 
LPG >U f LOOAL &RINT,PSTART,FAr-.,CP''IiK,MOL,VKITrT,Tr ‘-CPF F, WAFT, L’l<' fin 
LEG' - GLOBAL TAPR 1 T, x S 1 COR , XXSF ,PSl.D, ' TiPT,! tpPA,?lCNAt ,MSE ,FKE^ 

LlG ^0 GLCrUL -’ASSC,!.! ,A'J» ,r TFPC,TPPH,-.L A" ,C A ' C 0' t P -ilCE ,SK I PPY 
L'G; ; f.LODAL GASPAT,r f R T ? ,PflF TP A ,CUTF •♦'FIT* , I TL , « E OR , Cr. I'T: L 

LfG .H feLOf AL VLIf ,UATAp,SPl L,P ARTPl ,TFLAf , VAtSL,PARTWT 
LEG 10 GLOGAL POLL ,VSON,PRNV 

LXeB GLOBAL ChEr-1 Y Y, VM IX? ,RUf , VMT > r, CHE^x Y ,F AR STU , AVPHP2 F I X 1 , AVF FOP 
LKBb GLOPAL PCI NTC,SL IPPT ,LS AC,PUN*’ XT . TPN,L lPrx,UFITIT, ISF A ,fU<»'UT , 

LKB5 r-LODAL AKF,PUT,PSTF ,VMrXt.,VPIX<i,CXP£R,T'"MFC?,PSEC,INTFL*.r.VEPl A 
LKBb GLOBAL TOTAL ,GL OHAL , CROP ,TPHP02 ,TEMP01 ,CPSV,LSTFLN 
FN(i 


Fig. A-3 BAHP2F Loader Directives for the CDC Segoentation Loader 
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OF HOGfl QJALiT'i 


L RC : r ' LI '■ 

Li;\lC: TRR LI K 7 

L!\C1 Trr? LI\K?-(LP.t': »l TNK'*tLIVKRLI-.K^) 

.,:T Tti' Lff “(LlL^'RL. •. ^,Lr-Cl> 

Lib.. ifvCLi-r'’ fC »• ;: I ,’'aTc »< T t ff- 1 CT,y AT- B. T!-! Rr.R K' p •- .Tf 

• LftBp ♦CPP. t;! ILC? «L I PL»T- /*->•' R .‘-f C •.•, O,:’ • ♦ tth^V , S T A T C , R l C Of [ , I ■■C 

• R f ? . . Y , ■ p II r I 

LINI':' RLl.T" TPLftr AT . s ; R T X I ♦ F RS T ' , A Y L i T L'P 
1%CL' L-: ' Li F(i FC. 

LINr' r^■. "■ 'I'-rp.;. 


LINR. 


■ .PiJT 







LINK 

’LTL v; 

-RTF * 







LINK ? 

i '■• L ■ 

TLf r T 

' t.r • p , 

l '■ » AL A, , 1 

' L Y,:r'iFFr, 

r . RP 1 

LCF‘ ♦ I Ti 

F AT ♦M 

,NhCF ; 

.P.'.f' "uF 

.TRI ' T,i 

1 » f « F 

ILF'^R TLG“ .t I 

G*Fv'!uT‘' 

,p- FIT,;; 

LIT' L»‘ r 

f f 

LRK A 

R.:l "P: 

r'D;- i''RP. 


• ■^Al S“V*P: Arp 

♦lOVTACfTA' 




L t G j > 

GLHCA^ 

R C 0 *1 ♦ Y 

L> « V. ' 

r.L OF P FC'-'- «C 

■ t cc -‘*:;.'.r cc. 

N , L T T C '■ 



L '■ 0 • 

■■ L : ; A L 

-cpr 

1 • ♦ 

r l.i'rO' 0 T • 

.•'ly:- • . T 

t • - r - ; , 

F; f ' ■ 


l:g 

0 L ■ A L 

,A LC . 

i-^r' '•'% 

T r -:' ,■ I ' " 


n - ■ I u ■ 

f. 

L. C. ■ 

• L • ■ " L 

•- TA! - , 

• c ■ . 

' L •. » r. 

. ! T f ' t ‘ ' 

r 

L. 4 



LliJ-C- 

CLG ' AL 

F L F L ; 







LINK7 

GLOBAL 

F I TCL“-',V 

-- T r , 

FRLCOM«TRT :OV 

♦ OUT CO “ 





TMn 


Fig. A-4 BLIMFJ Loader Directives xor the CDC Segmentation Loader 
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Appendix B 

INSTRUCTIONS F(» MODIFYING THE LOCKHEED METHOD OF CHARACTQlISTICS 
PROGRAM TO USE A RAMP2F VISCOUS IDEAL GAS EXIT PLANE STARTLINE 
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i^pendlx B 


One of the exit plane start line options available in the BAMP2 program 

is a startline that is compatible with the Lockheed Metbf>d of Character- 

* 

istics Program (HOC) . This startline asstnes an ideal gas approximation 
of variable total temperature which occurs in viscous flows. The BAHP 
program will output this start line following a noxzle, boundary layer and 
exit plane startline run of tte RAHP2F program. The startline and asso- 
ciated total conditions are punched for the exit plane of the nozzle. The 
axial coordinates are assumed to be zero and the radial coordinates of tlM 
startline are non-dimensionalized by the exit radius. The total conditions, 
R,Y> T^, are mass flow averaged based on the exit plane conditions. 

The subroutines in the HOC program idiich required modifications are: 
TABLE, POFEM, EMOFP, MOCSOL and ntANDT. Figures B-1 through B-S present 
listii^s of the routines as they should be to utilize the RAMP2F ideal gas 
HOC startline. Changes to the program are noted on he listings using a * 
for statmsents that have been modified and a -i- for statements that have been 
added. 


Smith, S.D. , and A.H. Batliff, "User's Manual - Varialbe 0/F Ratio Method 
of Characteristics Program for Mozzle and Ploe Analysis," LMSC-HBBC 
D162220-IV, Lockheed Missiles & Space Company, Huntsville, Ala., June 1971. 
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ORIGffJAt 

Of POOR QUALfTB 


Table B-1 

SUBROUTINE TABLE MODIFIED FOR USE WITH RAMP2 HOC STABTLINE 


SWROalTlir TtPU 

twis ra'jTU' cM.cw.airs loccl i«s p«oac^Ties fc» pc*i. a* ioe*L 

sas :s • Fu’.CUC« OF FkTOOOVISSI *NO «ElCC|Tfl««l 
COif^W «S ICC**/ nSI? I 

crw'fO'i/ r 0 • I -I / iai»F 1 1 c • . » coi u n 

cr*« ’•ON/oa n«/F HOI < .ISC.; i.iFhO .aPMPiico. 21 * 

•OFOaTl2:i .ST«| l2C.2I.T«TaPI?..2l.Ta>9t2SSri. 
*«aLLcoii3C.i>2t.iMaiL>iOu*<i«iroa*;sit'*j*2i.tEPaobi;i 
COnnON/sa 5C OH/ ^ .G . TO .PO . as TER 

ccp**os/ ?u»a /icecl 

I C0"*taH/Fa»,T,F.sP 
COa**Ok/tE FPER/TR.CF 
OiHE^SIOa «Ek1iniE.2|.«F|2l 

c a** asTERi* logicaics sas poopegties outsice oa*6£ OF Taetr 
c a siaMi Fcaos viThih oaHoC or raoiE 

oaia aa/aa • / 
oafa oB/aa / 
asTEo:(i<> 

I>=1 
lOE *a=a 
s=ss 

T=«* 

SP=S 

F»III=» 

*P|2I=» 

C find aatPBFR OF EHTOOPF CUTS 
IS=XCOail I 

C IF OHLT oar £aTROPT CUT. TOV Pa*c EfTHE? FROZEa 0* IDCaL 60$ 
lriIS.EC.llSe To ICE 

C IF COTROF* OWtSIoF OaocE OF TaBlE.SET TO 10ME.ST OF N16HEST *a«.l« 
IFis.Li.STaaiiF.iii SP=STaaiiF.ii 
lFIS.6T.STa0lIF.lSI I SP=STaO ITF .IS I 
iFis.ae.SFi asTEoraa 

C oaaCHET i>: lapbT EHTOOPT BEToera THE 111 aae il>ii TawE oaLUtS 
00 13 1::.1S 

iFisp.LE.naofir.iiibi* to zr 
13 coaTiaur 

:=is 

2C 3$=l-i*l* 

C SET aCLOCITT TO LOaEST OR mIGMEST TanCE VCLUE . IF OUTSIOE Rat«e 

IFtF.LT.TtRIlF.JS.l.lM •Pll«T:TaBllF.3S.l.l| 

lvNaa=ivTaBiIF .jsi 

lFlT.6T.Taoi lF.3S.l*P/a.lll TPf lTlrTaOITF.3S.ITPa>.ll 
c BOaCaEi laouT tElocxtt oetheep ili aao iL-li TaeiE VatuES 
or ;c LTi.iTPOa 

IFiTPIlTI 4.F.TaOllF,JS.L.III 60 TO ao 
5" coH’iaa»r 
LCttoai 

C COLCULOTE FoaCTlOk OF oar OETOEER ILI aoC IL»!I TElOCITT.CUTS 
•9 NT:|TP|TTI**TaEltF.3S.L-l.lM/fTaBriF.3S,L.II*TaB|lF«JS.L-t.lll 
C SET LOCai mOClTT OT FIRST EHTROPT CUT I1t:H 
TEMRTil. irisrpiiTi 

C SET LCCTL GaS c^H^VaoT |«| al FTR«T CcItOPT CmT I1t=1I 
TENTRTI r. ITISI l.-PTlaTaRIlF . JS.l-1 .?T<oTOTan| IF .JS.L .21 
c SET LOcaL aaHPa aT first fotropt cut iit=ti 

T*aTRTlS. lTlri:.>HTI*TaB|lF ,jS.L>l,«|aHT*TaaiIF.3S.L. Jl 
C rsir IS a atlENTiao FaCTOo CEFIGIpg a PaTa FETbEE* TEPPERaTuRES 
c aT T.r tfllcitt cuts 
fSlTrasiirr ../S .1-1.11 

C a$T» IS SlPUaF If- »SII BUT rEFlHrj a paTi. aCTBEE* PRESSURES 
XSXPCISliTT .3S .1-1.21 

t IFI LCC»l niai. TFhp fl FIRST FHTOOPl C'/l 

rr!bT»ri«. iTIrTaPllF.JS.L-l .•l*|Taai|F.jS.l-l.l laTfaf IF .3S.L-S.1I/ 
•TaBIIF.JS4.-:.2l-TCHTRTII.ITI*TFaTRTIl.TTI/TLMlDTI.,lTll«.S/BSlT 
C SET LOCK TCTat PRESSURE a* FIRST EHTRORT CVI 

TtaTRriS.lT l = TaBIIF.JS.L-..>l*ll*C«TRrio.|TI/TaeilF.jS.L-l.ail 
•••RSIPl 
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OF POOR 


Table B-1 - (Concluded) 


t V» HILL rCL*t < If l\PUT VELOCITT IS h|TN|K nfkSI Of T«BLt 
IFIVOIIVI .!»(.« ISO fO Ti. 

C ProfOOM CfLCVL*TI(P|J miTtCtL TO tMOSE OCSCRtOCO. f9» tCCONO 
C CPTPOPT ClT, Ot> If This is ILPCOO* OOKE 6C TO Of •<»{> STWT 

C I^TEOPOl* OS EOTROPV 

or ifii«.E:.:i or to or 
i«=r 

eC TO 2" 

C If CUTSiri TfSCE Of l*OiE. C*lC(X*Tf ca< POOPFRTIES FROP LOST 
C TOOLE VtLUT L'SlOO lOfOL GoT REL;:TIO>.S 

77 R=»rsTRri:.I«l 
OSffRzOO 

6oh>o =«em iRfi : .1 « • 

T=«cmThti 0.I«I 
ProEOTRTt f.lVI 
En:«PII«i /SCBTI9*60sh**T| 

TO=T*ll.« I60NP0>1.I*£P«EP*.S> 

PC:»« 1 1 TO f I > iGOlNIO/ lOONNO-i . 1 1 1 
*ERTRTI*.l«f=TCF«l«l 
«ENTRVtS.I«l=POFe>IEnOF*l«l.«.l 
GO TO 0? 

on 1FIIS.EC. II GO TO lie 

C Fln>) FROCTIOO OF WOT •CTVEES III 0U> II fl EoTROPT CUTS 

•»s=iso-ST»eiir,i-iii/isToaiif ,ii-»To*iiF,i-iii 
C R.SOO.f.T 8T Liseoo tsiTCpOCLOTIOl: •CTuEl* CKTRPPT CUTS 

P=«FuTRTi !. I l•KS•l«E•>TRy I?. 2l-vEMTRfir.il I 

SOMHOSVfMTRVt S.l|.MS*l«r>lTRTf3.?l-VflkTRTi;.ll I 
T:vERTiif I 0.1 |*MS* I VEgtRtim. 2i-VENTRTiO.il I 
C COLCULOTE .EIGHTING.FUKCTIOII IOOOLOGGUS to VSIT 000 XSIPI 

MSP=I <P/R-ST00HF.1-1I#*EMTPT 12.1 11/ lSIOBiIF.il/VENTRT 12. 21* 
•ST0RI|F.1 •1 I/VcoTPTI 2.1II 
C FIND PRfSSun USING VCIGmTISG FUMCTION III5PI 

PrvENTRTI E.I|.E>P|HSP*OLOGlVCNTRTIS.2l/veNT«Tlc.llll 
C COlCULO'E nOCH NO 

CN=V/S«OT i«.6»""0»»* 

C COLCULOTE STOGNOTIO- rONOlTItiNS 

TO=T«ii.. iGOPPO-i .l.E***EN*.f I 
PO:Pol I TO /I IGOPPO/ 'GOoPo'-r . 1 1 1 PETP ISP/F I 

60 TO 2"t 

ic: 1VN0S = 1 TT*E Ilf .1 1 

C If lUEOL. GO T. I?r /Ti; SET 60S P»0<>CPITES. If REOL. EO BOCO 

C ONO INTEPfCLOT£ aETHEEN VELCCITIES 

lflIVOOI.El.il GO TO 12C 

:p=sToaiif,ii 

1=1 

iv:? 

GO 'P ir 

t SET ca< PCOPCFTtCf ME®£ IIM£* CNIT ONc. ENTPOPt CUT ItS : II 

11. GtMHOrT*NTO.|;,2l 

b=»«-s.tpt« :.;i 

Tr/rvtPTi o,?l 

PlVfi.IRTI !,il 

E-: T /JCPTIGOPPOPN.TI 

TOBT.il,. lfOPPO-1 .I.IPPE"*.* I 

PO=TCo;T»TiS,2|.iiTO/TIPPl60PNO/l60PPO-i,l ll.£rPISP/Rl 
OC TO 2*: 

C set 5/S PfOPCfTIES H£cE .MEL IPFOL GOS 

12C R:TOVItf. 1,1,21 

00N»0=T0B IlF.l.l.ll 
TnrTSPITF.|.l.«l 
PO:TaBIIf .1.1. $1 
10 C(l:i 

CP=GOPNo.o/lGOPno>l.i 

TR:to 
TO rOf /C® 

TTfAFVITV I 
2r-3 CONTINUf 
RSTUOn 
ENO 
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Table B-2 

SUBROOTINE ROFEH MODIFIED FOR USE WITH RAHP2 HOC STARTLINE 


C PRCSSIME n rWTIOM OF MCH NO.IfHI ONO nTRCPVISI 
FUNCTIO'I FOFCRICN.SI 
C 0 MR 3 M/G 0 5CQM/n.6UHI«.T0.P0.«STCR 
COMiiOM/TC FFCR/IB»0F 
I|=TO 
T?=TB 

GRIOESIM FH«-1 .!• .S. 

R«T64>>=S*ni«/l6«llH«*l. I 

C COmOWK LCCai tOT«l POCSSIME IPSIMl «S • FWiCTION OF 

C NE«D LOSS IFaPiS/BIk . 

PST»ilSPe/E>o|S/«t*IITI/T2ll**««T6«M 
C COHPUTC LCCOL &T1TIC PRCSSMPE 

POFEorPSI M/M l.*6N102*E>MeP 
RETWIN 
END 


Table B-3 

SUBROUTINE EMOFD MODIFIED FOR USE WITH RA:Ic'2 HOC STARTLIME 


FUIlCfIO<l EHOFPiPtSI 

C NACP M. •& Fl'MrnON OF PPESSIIREIPI FNa CMROPfiSl 
C0NN0«/6«Sc0''^A*6*<"'**T0.P0*«STER 
I CORPON/TEPPER/ni.OF^ 

Mt60N:S«FN«/l6aNHa»l.l 

GHlOESlGCFIIF'l.lP.S 

C COMPUTE LCCM. TOTFL PRESSURE «S • FUMCTTO^ OF ME SO LOSS 

PST«R=PO/ F«Pl S/R I »M TO/TR 1 1 ••RSTGFP 

C COMPUTE ICC«L P*CH number from TMEpMfLLT PERFECT 6*S RELATIONS 
CNOFPrSOR Tl I IPSTGR/P 1 1./RGT6GM >*l« I /6H102I 
RETURN 
ESO 


ORIGfiNJAL C 

OF POOR QUALSTY 
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ORlGiNAL 
OF POOR I 

Table B-4 

SUBR(HrriNE MOCSOL MODIFIED FOR USE WITH RAMP2F HOC STARTLINE 


suaRwiiNCnocsoi. I iN.Ni.tii iimi 

Nocm soi«cs me cmmactfristic CbutnoNS «t ihc nfm poiht 
ilM^m OHCfiiBCS TMC HCN poinr 
iiNi.iiNi.m2.KN2i ecsceiBcs thc fwo hnomm points 
IIP146I IMICATCS IF *N EPROR EFISIS IN THE MLCULFTIOn 
lITTPEI IMilCaTES THE TTPE OF CaLCUlATION TO PE N«OE 
•••• ITTPE=11 COMPUTES INTERIOR POINT 

21 COMPETES loner H*IL 

22 COMPETES UPPER H«LL 

31 competes EOhER free flOUMOpRV 
S2 competes UPPER FREE ROUNOORT 
CONMOR/ CO P TOE / IRON 1 1 C I , I CON 1 16 1 
CONMON/CR ITSR/COMVRS 110 1 .1 TkiN 1 10 1 
ceNMOR/o6T«a/PMOfe*icM*2i*iRHOfie*:.?».«MMoiioo.2i, 

•0FR6TI2ri^T68 120.21 •I«T6RI2G*2I*T«B0I260 o*> 
•M 6LLC011CC,6,2l.lH«LLIsaa.2I.ITR«NSilC0.2l«lE060N12l 
CONMOH/66 SC0N/H.6«NM6 .TO .PO .6STER 
COHMOR/FI6ITE/1FREE.TINF.OF5 
ORTt PlOOi.TBSSOBlO/ 

C TRUNCRTE CFF SECOND DIGIT 6No RETAIN FIRST 11 -INTErrIOR 
C <-N6EL.1-F6EE BOUNOI 

ITtPCl=ITTPE/li 

C FIETCR out AMD RETAIN SECOND DIGIT 11-tOTERRIOR OR LONER. 2-UPPER I 
ITTPE2=TT*PE-1 ITYPC/1»I«10 
C SET STNSOLS FOR NEM POINT 

I=1M 
H=RR 

C SET STMPOES FOS TWO KNOWN POINTS 

Il=lNl 
Rt=HNl 
1?=IN2 
R2=MK2 

C SEE IF AIISTNMETRIC OR TuO DIMENSIONAL 

A>020=ICOAI7I 

C 1NIT1ALT2E CORTROE CONSTANTS 

ITERAT=: 

ifeag=i 

1PASS=1 

C FIND ALL *EEc.S$ARY CMARACTERISTTC DATA *T FIRST KNOWN POINT 

Rl=PMOi;. Il.KlI 
X1 :PiI0I2.I1.h!I 
«1=PM0|S. Il.KlI 
THETA1 =RnC 1A. Il.KlI 
S1 =PnOIS.11.k1I 
U1=PhOI 6. Il.KlI 
OFlSPNOia .Il.KlI 
CALL FAOLFIOFI.Sl.Vll 
6ANMA1=6AMMA 
RC1:R 

PlTMOfEMl EHOFVtVll.su 

C find all FECESSART CHARACTERISTIC DATA AT SECOND NNOuN POINT 
R2 :Pm0I1.I2.K2i 
X2:RnOi;. U.K2I 

v2:pho<1.I2,k2i 

THeTA2:PHClA.l.,K2l 

S?=PmOIS.12.k2I 

U2rPNOI6.12.H3 1 

OF2rPNOIB.l2.K2l 

CALL FABLCIOF2.S2.V2l 

6AMMA2r6AFHA 

RC2rR 

P2=P0FE<MEH0FVIV2I.S2I 

C AVERAGE KAOWN VALUES FOR INITIAL GUESS AT nEW POINT yALUES 
V3rivl*v2!R.S 
the TA3:ITKTA1*THETA2I*.S 
SSr|$i*s2i«.s 
OF3rlOFl*CF2IR.S 
USr IU1*U2IR.S 
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Table B~4 (Continued) 


c 6UCSS itintL «»ERm vtiues 

UlBSUl 

U2«=U2 

RIB = IR1««2I*.2S 

RZB = IR1«R2I*.2S 

1 HETIB=ThE 1*1 

TMCT2B=THEt*2 

«?B=«2 

«IB=«1 

BOIOIlO.lt.l&i.ITVPCl 

' C this is FCR INTERRtOR OR UBL(. POIhT 
10 C0H«N1=I«I*«2I*.S 
ITtlRTzITUHttl 
C0N«BL=C0MB6III 
60 TO 2C 

C this is FCR FREE BOURPART POlM 

IS C0 NVH|=|TKTA|«ThETA 2I*.S 

ITLlNTrlTUPi;i 
C0M««L=C0A«R6(2I 
IF|IFREE.E<i.2tCO<««*L=CON««L/2« 

20 60T0I2S.3C,3 CI.ITtPE 1 

calculate left ANO RlOHT RUNnInE CHARACTERISTIC AP 6LC FOR 
IHTERRIOR POINT 
2S BFTA1=TNCTI<>-Uie 
BETA2=THET2B>U2B 
60T0RS 

Sc oOTOISS.AO -T1TPE2 

C calculate characteristic ArFLES fop LOaER BOuNOARV 

3S BETAl = THCnP-Uie 
BETAirTHETcB 
60T0R5 

C calculate CHARACTERISTIC ANOlES FOR UPPER BOuHdaRT 
R 3 BETAlrTHCTIP 

BETA2 =THE t 2 P»v 20 

c FiHc intersection of left and right RUNNike characteristic lines 
C FROP TnC PNONN points. THIS IS LOCATION OF NEH POINT 
•S IFIBETAI.EE.EETA 2I 60 TO lot 

call 1NPSCT|RI.K1.<»E1AI,R2.I2.BETA2.R3.V3> 

GoTOiSS.SC.SSI.ITvPEI 

C SOLVE BCUAOART EQUATION FOR R AND THETA AT INPUT T 

SC call BOUNCIRS.aS.TNFTAS.ITTPEII 
C LOAD IN NEh COOROINATES 

SS PH0II.I.N):F3 

C IcONITI = l-TUO OIhEnSIONAL. ICONinsO'AylSvHHLTRIC 

PH0I2.1.A l=tS 

1F(ICO«ITI.EQ.I.ANO.RT/IR1*R2 I.LT.C.I go to IPS 
C IPASS= 1-F1RST TINE THROUGH, IPASS^: -SUBSEQUENT PASSES 

GOTOIGC.GtI.IPASS 

C CHECA ON CRIENTATION OF CHARACTERISTIC LINES FIRST TINE THROUGH 

03 lOUADItl 

IFIABSiBE TAli.LE*FlBR>I0UADt=2 
I0UAD2=I 

IF I ABSIBE Ta 2> ,LE .PIORlIOUAOj:! 

0 ElTA 1=|-2»(IDUA01/2 I 
delta 2=I-!*I1 OuA 02F2I 
IPASS=2 

C calculate rotational tern 0 F COnPATABILITT CON, (EONS 6-29 REF II 
OS Fi:ROTERHITHCTlB,OCllAI.-UlB,PHOIICUADl.I ,Al.PH0(I0UA01,II.KIII 
F2=ROTCRN|THETZB.DCLTA2.U2a,PHOIIOUAD2.I,AI,PHOU6UAD2.I2,K2ll 
GO TO <TI,TS,TSI.ITVPCI 
TI S3=Sl*FI»IS2-SU/tFl*F2l 

0F3=0F|,F|RI0p2-0Fll/IFI»F2l 
60T09C 

7S 60T0IBQ.BSI,ITTPC2 

C ASSURE ENTROPY ANO VELOCITY CONSTANT ALONG LONER POUNQ 

BO SS:S2 
0FS=0F2 
VS:V2 
GOTOBb 
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Table B-4 (Continuea) 

C ASSUME CNfROPT AND VCLOCITT COMStAMT ALOliG UPPflt BOUND 

•S SSsSI 
orjsori 

IFlITCilAT^O.llWSSWl 
•6 6OT0f90.9t.?TI,tfypfl 

teti=ieoNOkiiTvpE2i 

C 6CI A MCIfHTCO l«M VCLOCITV FOON PRCSSUOE BhAN FRFE BOUNOART 
V3=*OFCM(FCitOFPIFN«TNIfHeTA3.>5»RS>ITVRE2l>OF3.SSU*«S*«3*.S 
9 q SU1B:S1NII*9I 

c calculate average values Over step lekgth 
R ie = iri<r;i*.s 
R28 = |9j«RjI*, 5 
CUlB=COSiUBI 
SU2B=S1«IL29I 
cUiP=COSI L*SI 
C equation t-?S REF 1 

0|-CUlB/l!Ule*«tB> 

B2=CU2B/I SU2B*«2B I 
CALL FABLEIOF3.S3.9Sl 
P3=P0FEPI EPOFV IV3 1 ,S3I 
RAVt=IRCt«RI«.S 
RAV2=IRC2*RI*.S 
Gana9i:igamhbi.6Amnai«.S 
6AhA92:I6AnmA2*GANhai*.S 
C EQUATION f-2S REF I 

OFaAR=O.SAtCFl*OF3l 
SBANSQ.S* IS1*S3) 

CALLFABLE I0FbAR.SBAR.V1BI 
TAWISTOFVIVIBI 

RHOAVl=»MCFCNIEHOFVIVlBI.SaARI 

OFaAB=O.S«tOF2*OF3| 

SBARSO.S* IS2*S3I 
CALLFABLE I0FBAR.SBAR.V2B I 
TAV2=T0FV IV2BI 

RNOAV2=RHCfEH«ENOFVIV2Bl.SeARt 
• 0(SIlrS3-U 
0KSI2=SSo«2 

CIl=CUia/SUlB/IVlB*VlB)«(OFS>OFll 

Cl2=CU29/$U2B/«V2B*V2Bl*tOF3-OF2> 

Bl=SUlB*CU9*0XSt i/tRAVI*GAPAV|l 
B2=SU:B*Cl2B*0XSt 2/ IRAV2*GAPAV2t 
C equation (>2S REF 1 
ei=3.o 
62=e.C 

IFI ABsINiei .GT.a.ClGl=StN<TMETlBI*Fl/RlB 
lF|AaS(Q2EI.GT.C.C>G2=SIN<THET2Bt*F2/R2B 
60T0I vS. ICC. list. ITVPEt 

C CALCULATE kEH VCLOCITT FOR INTCRRIOR FT. (COB 6>19 REF II 
9S V3= ITHETA 1-THCTA2*01*V1*02*V2*AX02D*I61*G2 l-ai»B2>/ 101*02 > 
•*4Cn*Ct2l/IUl«Q2l 

C CALtULATE nCH FLOH ANGLE FOR INTERRIOR PT.lEQN 6-23 REF II 
ThETaS=ThcTA2*C2«<VS«V2I>AX020*62*62 
•-CI2 
G0T0130 

IQO 60T0I105.I19I.1TVPE2 

C calculate NEV VELOCITV for LOUEP VALLIECN 6-23 REF II 

IDS v3=(THCTAl-THCTA3*61«As020''ei*Ql*yil/0| 

••CIIF02 

60T0130 

C CALCULATE NE« VELOCITY FOR UPPER VALLIEON 6>2I REF II 
110 V1:|THCTA!-THCTA2*62«ako20>P2<Q2«V2I/02 
•*C12/02 
G0T013Q 

IIS G0T0I120.I2SI.XTVPC2 

C CALCULAi'E NFV FLOW ANGLE FOP LOVER FREE BOUND lEQN 6^29 REF II 
120 THETAlsTHETAi-GlAlVl'VlIYGlvAXOrD-Bl 
•*C11 
GOT013U 

C CALCuALTE KEV FLOK ANPLC FOR UPPER FREE BOUND IEOH 6-22 REF II 
12S THCTAS:TpETA<*02«iV3-V2l-G2*Ax020*B2 
• -C12 
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Table B~4 (Concluded) 


tSO CALL F*eiEIOr3.S5>»II 
C C*ICUL»1E MCU MCH ftkBLe 

6OTO1IIS. I3S.X«CI.ITV»E1 
C SET COMVEKbENCE CRITERIA 
I3S CO«¥=VS 
G0T01»S 

t«0 CONWtTHETt* 

r CHECK FOR C0MVCR6EHCC . . 

m IFIIRRS I IC0M«*3.1«l/fC0MVHl*3.1«l>l.l-C0M¥«Ll.ie.O.I60 to 16S 
IFIIlTCRRWIfLlNTI.OT.OlOO TO 1«0 
C RE CKLCottTE RVERR6E VALUES AND IHCnERENI FOR NEXT PASS 
VlB = l»l*V3i*.S 
«2e:iV2*«ll*«S 
UIB = IUl*U!l*.S 
U2e = tU2*U3l*.S 
THeTie=ITFCTAI*THCTA3l«.S 
THE T2e:lTFETA?»THETA3>*.S 
ITE9 aT=ITE||At* 1 
60TOC1SC. ISC.15SI .ITVpEl 
tSC CON«n1=V3 
COTO20 

SSS CON«N1=ThETA3 
60T020 

l6o CALL CRR0RSII2I 
C ERR0RSI12I STATES - HOCSOL KNC 
1FLA6:2 
6OTOIT0 

T61 CALL ER90RSI23I 
1FLA6=2 
60 TO ITC 

16S BEtAi:tTHETU*THETA3-Ul-u3l*.S 
CCTA2=ITHET12»THETA3*U2*U3I*.S 

IFIITVPEl.E0.1ICALLlNRSCTIR|,XttBET«l.R2*X2.aETA2.PHOII.I.KI.PHO( 
12.1. Nil 

C LOAD final CHARACTERISTIC DATA INTO PHO ARRAV UHEK CONWERBEO 
PhOIT.I.K I=«3 
pMoiA.i.K 1= Thetas 
PHOIS.I.N t=S3 
PNOI6.1.H l:U3 
PHOI7.X.N 1=0. 

PHOlA.l.k l=CF3 
IPhOII.mI :ITVPE 1 
APHO(l.Ht:ASTER 
170 RETURN 
END 


OF POOR 


Q'urt.-ii i 
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Table B-5 


SUBROUTINE PRANDT MODIFIED FOR USE WITH RAMP2 MOC STARTLINE 


SUBROUTINE PR*N0T|I»Jt1HETA(l,NPN,IFLA6.tTTPri 
C THIS ROUTINE COHPUTES PRPMOTl-NFTER EXPANSION ANGIE AND 

C OIXlOE! lATO SEPIES OP EXPANSION RAYS 
C 111 • lOEATIFIES CORNER POINT 

C Ul • lOEATIFIES A CHAR ACTEP ISTIC LINE 

C IThETABI • BOUNOAPV ANGLE 

C INPHI - N.lnBEA OP INCPENENTS 

C IIFLA6I * ERROR FLAG 

C IITVPEI • lOENTIFIES UPPER 121 OR LOnfRUI AOUNDAPV 

CONNON/COAIRL/IRUNIIOI.ICONI )6I 
COH«*OA/TES1¥/IYTCST 
CONNON/CRITER/CONVRGIIOi.ITLI* IlCI 

CONHON/OATAT/pHOIB.lCP«2>.IPHOIlCCt2l .APN0|IG!1,2I. 

•OFRATI2?l .STaE l20.2I.IVTABl3b,2l,TAB6l2SCni. 

•HALLCOI ICCt6.2l.IHALLHOG.2l ,ITRANSIlC0.2l.ie0N0Wl2l 

com«on/>;a5csn/r.gah«a. TO. po. aster 

CCHNOn/STEPC/STEPIIOI 

IPLA 6=1 

ITYpEI = lTYPE-IITYPE/iri*IO 
C SET CCRNER CONOITIOnS 

RC=PH0I1.|,JI 
XC=PH0I2.1,JI 
SCZPHOIS.I.JI 
OF=PnOI8.I.JI 

call PARLEIOF.sC.PHOII.I.JII 
«C=PH0I3.1. jl 
Thctac=pnci«.i,ji 

NPN=IC0NI ]«l 
IF|NPH.NE.CI GO TO S 
G CALCULATE NUNSEft OF INCRCNENTS 

NPH:ABSII THETAO-IHETACI/STEPiIII 
NPN=NPN*1 

IFITTYPEl .EC.I.aN0«NPN.gT. 90I NPn:90 
IFlITYPEI^C.2.AN0.NPH.GT.90INPP=<>C 

c initialize 

s continue 

VI=VC 

THETAl=TNnAC 

A=3 

DPI02 = I.5TC79G3PFI-CATINPHI 
ARG = G. 

10 a:k»i 

ARG : AR6«DPIC2 

C CALCULATE LEIGhTInG FUNCTION tLOOSEAS INITIAL PAYS , TIGHTENS FINALI 

DE6PNP=ITPETAB>THETAl>*IARG/1«S707963I*ITHETAI-tHETACI 
kPI:r*I 

HOLD CORNER COOROINATESIRC.XCI ANn ENTROPY (SCI CONSTANT 
THROUGHOUT EXPANSION 
PHOII.KPI ,JI=PC 
PnO(2.mPI «II:XC 
PHOIS.KPI .JI = SC 
PHOIB.HPI nll:OF 
c find VELOCITYIVSTARI oownstreah of expansion pay 
CALL ThETFN (OF .sc .OEGPNP.VSTARfVI . l.ITYPE I 
TMEtAUTHETAI.OEGPNP 

c set conoiUons cohnsireah of Expansion 
TO PMOU.API .JirvSTAR 
PH0I9.RPI ,UI=THEIAI 
PH0I6.HPI .wl=l'OFVIVSIARI 
PHO (T.aPI ,j|:3. 

IPHOIAPt.^lZS 

APhOIKPI..|:aSTER 

Vl:VSIAR 

IFdVIEST ^T.riNPHZK 
IfiIyTEST .GT.ailWTESTrO 

ifik.lt.nphigotcic 

G0T02CU 
290 return 
END 
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